* Changed var to out in TStringList.Find

git-svn-id: trunk@16395 -

rtl/objpas/classes/classesh.inc

@@ -693,7 +693,7 @@ type
     procedure Clear; override;
     procedure Delete(Index: Integer); override;
     procedure Exchange(Index1, Index2: Integer); override;
-    function Find(const S: string; var Index: Integer): Boolean; virtual;
+    function Find(const S: string; Out Index: Integer): Boolean; virtual;
     function IndexOf(const S: string): Integer; override;
     procedure Insert(Index: Integer; const S: string); override;
     procedure Sort; virtual;

rtl/objpas/classes/stringl.inc

@@ -1234,7 +1234,7 @@ Function TStringList.DoCompareText(const s1,s2 : string) : PtrInt;
   end;
 
 
-Function TStringList.Find(const S: string; var Index: Integer): Boolean;
+Function TStringList.Find(const S: string; Out Index: Integer): Boolean;
 
 var
   L, R, I: Integer;