[JVCL-Checkins] dev/JVCL3/examples/RaLib/RaInterpreter fJvInterpreterTest.pas,1.5,1.6 - Now compiles with the current JVCL source

[Olivier S. <ob...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/examples/RaLib/RaInterpreter
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32764/dev/JVCL3/examples/RaLib/RaInterpreter

Modified Files:
	fJvInterpreterTest.pas 
Log Message:
Now compiles with the current JVCL source


Index: fJvInterpreterTest.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/examples/RaLib/RaInterpreter/fJvInterpreterTest.pas,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** fJvInterpreterTest.pas	31 Mar 2004 07:43:10 -0000	1.5
--- fJvInterpreterTest.pas	17 Jan 2006 20:47:24 -0000	1.6
***************
*** 41,45 ****
     Variants,
     {$ENDIF}
!  JvExControls, JvComponent, JvFormPlacement;
  
  
--- 41,46 ----
     Variants,
     {$ENDIF}
!  JvExControls, JvComponent, JvFormPlacement, JvComponentBase,
!   JvEditorCommon;
  
  
***************
*** 104,108 ****
  implementation
  
! uses JvJCLUtils, JvJVCLUtils, JvInterpreter_all, JvInterpreter_SysUtils{, JvInterpreter_iMTracer};
  
  {$R *.DFM}
--- 105,109 ----
  implementation
  
! uses JclFileUtils, JclStrings, JvJCLUtils, JvJVCLUtils, JvInterpreter_all, JvInterpreter_SysUtils{, JvInterpreter_iMTracer};
  
  {$R *.DFM}
***************
*** 120,124 ****
  begin
    FileList.Clear;
!   Result := FindFirst(AddSlash2(Folder)+Mask, faAnyFile, SearchRec);
    DosError := Result;
    while DosError = 0 do begin
--- 121,125 ----
  begin
    FileList.Clear;
!   Result := FindFirst(PathAddSeparator(Folder)+Mask, faAnyFile, SearchRec);
    DosError := Result;
    while DosError = 0 do begin
***************
*** 146,162 ****
  var
    i: Integer;
!   S: string;
  begin
    i := 0;
-   S := SubStr(PathList, i, ';');
-   while S <> '' do                  
-   begin
-     Result := AddSlash2(S) + FileName;
-     if FileExists(Result) then
-       Exit;
-     inc(i);
-     S := SubStr(PathList, i, ';');
-   end;
    Result := '';
  end;
  
--- 147,168 ----
  var
    i: Integer;
!   paths : TStringList;
  begin
    i := 0;
    Result := '';
+   paths := TStringList.Create;
+   try
+     StrToStrings(PathList, ';', paths, False);
+     while i < paths.Count do
+     begin
+       Result := PathAddSeparator(paths[i]) + FileName;
+       if FileExists(Result) then
+         Exit;
+       inc(i);
+     end;
+     Result := '';
+   finally
+     paths.Free;
+   end;
  end;