paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-22 19:29:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Luiz Americo to use Const string params where possible

Browse Source 
git-svn-id: trunk@15664 -
This commit is contained in:
michael 2010-07-30 09:08:51 +00:00
parent 4d2786d238
commit f4c00b4e26
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
packages/fcl-base/src/inifiles.pp
View File

@ -80,7 +80,7 @@ type
FIdent: string;
FValue: string;
public
constructor Create(AIdent, AValue: string);
constructor Create(const AIdent, AValue: string);
property Ident: string read FIdent write FIdent;
property Value: string read FValue write FValue;
end;
@ -88,7 +88,7 @@ type
TIniFileKeyList = class(TList)
private
function GetItem(Index: integer): TIniFileKey;
function KeyByName(AName: string; CaseSensitive : Boolean): TIniFileKey;
function KeyByName(const AName: string; CaseSensitive : Boolean): TIniFileKey;
public
destructor Destroy; override;
procedure Clear; override;
@ -101,7 +101,7 @@ type
FKeyList: TIniFileKeyList;
public
Function Empty : Boolean;
constructor Create(AName: string);
constructor Create(const AName: string);
destructor Destroy; override;
property Name: string read FName;
property KeyList: TIniFileKeyList read FKeyList;
@ -110,7 +110,7 @@ type
TIniFileSectionList = class(TList)
private
function GetItem(Index: integer): TIniFileSection;
function SectionByName(AName: string; CaseSensitive : Boolean): TIniFileSection;
function SectionByName(const AName: string; CaseSensitive : Boolean): TIniFileSection;
public
destructor Destroy; override;
procedure Clear;override;
@ -218,7 +218,7 @@ begin
Result := '0';
end;
function IsComment(AString: string): boolean;
function IsComment(const AString: string): boolean;
begin
Result := False;
if AString > '' then
@ -308,7 +308,7 @@ end;
{ TIniFileKey }
constructor TIniFileKey.Create(AIdent, AValue: string);
constructor TIniFileKey.Create(const AIdent, AValue: string);
begin
FIdent := AIdent;
FValue := AValue;
@ -323,7 +323,7 @@ begin
Result := TIniFileKey(inherited Items[Index]);
end;
function TIniFileKeyList.KeyByName(AName: string; CaseSensitive : Boolean): TIniFileKey;
function TIniFileKeyList.KeyByName(const AName: string; CaseSensitive : Boolean): TIniFileKey;
var
i: integer;
begin
@ -379,7 +379,7 @@ end;
{ TIniFileSection }
constructor TIniFileSection.Create(AName: string);
constructor TIniFileSection.Create(const AName: string);
begin
FName := AName;
FKeyList := TIniFileKeyList.Create;
@ -399,7 +399,7 @@ begin
Result := TIniFileSection(inherited Items[Index]);
end;
function TIniFileSectionList.SectionByName(AName: string; CaseSensitive : Boolean): TIniFileSection;
function TIniFileSectionList.SectionByName(const AName: string; CaseSensitive : Boolean): TIniFileSection;
var
i: integer;
begin