* small fix

fcl/tests/stringl.pp

@@ -9,8 +9,8 @@ Type PLongint = ^Longint;
 begin
   If P=Nil then
     Writeln ('(Ref : Empty string)')
-  else 
-{$ifdef fpc}  
+  else
+{$ifdef fpc}
     Writeln (' (Ref: ',Plongint(Longint(P)-4)^,',Len: ',PLongint(Longint(P)-8)^,')');
 {$else}
     Writeln (' (Ref: ',Plongint(Longint(P)-8)^,',Len: ',PLongint(Longint(P)-4)^,')');
@@ -23,12 +23,12 @@ var S,TS : ANsiSTring;
     T : TStringList;
     I,J : Longint;
     A : String[255];
-      
+
 begin
   S:='An Ansi string ';
   T:=TStringList.create;
   Writeln ('Count : ',T.Count,' Capacity : ',T.Capacity);
-  For I:=1 to 10 do 
+  For I:=1 to 10 do
     begin
     str (I,TS);
     T.Add(S+TS);
@@ -36,14 +36,14 @@ begin
   Writeln ('Count : ',T.Count,' Capacity : ',T.Capacity);
   J:=T.Count-1;
   Writeln ('J : ',J);
-  For I:=0 to J do 
+  For I:=0 to J do
     Writeln(I,'/',J,' : ',T.Strings[I]);
-  T.SaveToFile ('strings.dat');    
-  T.Clear;  
+  T.SaveToFile ('strings.dat');
+  T.Clear;
   T.LoadFromFile('strings.dat');
   J:=T.Count-1;
   Writeln ('Count = ',J);
-  For I:=0 to J do 
+  For I:=0 to J do
     Writeln(I,'/',J,' : ',T.Strings[I]);
   Writeln ('IndexOf(''An Ansi string 6'') = ',T.IndexOf('An Ansi string 6'));
   Writeln ('IndexOf(''An Ansi string 11'') = ',T.IndexOf('An Ansi string 11'));
@@ -52,13 +52,13 @@ begin
     T.Values['Var'+IntToStr(I)]:='Val'+IntToSTr(I);
   J:=T.Count-1;
   Writeln ('J = ',J);
-  For I:=0 to J do 
+  For I:=0 to J do
     Writeln(I,'/',J,' : ',T.Strings[I]);
   Writeln ('Indexof(''Var6'') = ',T.IndexOfName('Var6'));
   Writeln ('Indexof(''Var13'') = ',T.IndexOfName('Var13'));
   Writeln ('Value[''Var6'']  = ',T.Values['Var6']);
   Writeln ('Value[''Var13'']  = ',T.Values['Var13']);
-  Try 
+  Try
     Writeln ('String 100 = ');
     S:=T.Strings[100];
   except