paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 10:50:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Var -> Out parameters in tstrings.getnameval

Browse Source 
git-svn-id: trunk@11093 -
This commit is contained in:
michael 2008-05-27 17:37:00 +00:00
parent 1f50a75866
commit 2482742fc5
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/objpas/classes/classesh.inc
View File

@ -563,7 +563,7 @@ type
procedure SaveToFile(const FileName: string); virtual;
procedure SaveToStream(Stream: TStream); virtual;
procedure SetText(TheText: PChar); virtual;
procedure GetNameValue(Index : Integer; Var AName,AValue : String);
procedure GetNameValue(Index : Integer; Out AName,AValue : String);
function ExtractName(Const S:String):String;
Property TextLineBreakStyle : TTextLineBreakStyle Read GetLBS Write SetLBS;
property Delimiter: Char read FDelimiter write SetDelimiter;

2
rtl/objpas/classes/stringl.inc
View File

@ -132,7 +132,7 @@ begin
Result:=QuoteChar+QuoteChar;
end;
procedure TStrings.GetNameValue(Index : Integer; Var AName,AValue : String);
procedure TStrings.GetNameValue(Index : Integer; Out AName,AValue : String);
Var L : longint;