* Var -> Out parameters in tstrings.getnameval

git-svn-id: trunk@11093 -

rtl/objpas/classes/classesh.inc

@@ -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;

rtl/objpas/classes/stringl.inc

@@ -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;