Make the last commit FPC compatible. (Use PosEx instead of Pos).

pyscripter · pyscripter · commit 79a7ac881795 · 2019-10-23T02:02:01.000+03:00
diff --git a/PythonForDelphi/Components/Sources/Core/PythonEngine.pas b/PythonForDelphi/Components/Sources/Core/PythonEngine.pas
@@ -3196,8 +3196,15 @@ procedure MaskFPUExceptions(ExceptionsMasked : boolean;
 
 implementation
 
+uses
+{$IFDEF FPC}
+  StrUtils,
+{$ELSE}
+  AnsiStrings,
+{$ENDIF}
 {$IFDEF MSWINDOWS}
-uses Math, Registry;
+  Math,
+  Registry;
 {$ENDIF}
 
 
@@ -5235,7 +5242,7 @@ function TPythonEngine.CleanString(const s : AnsiString; AppendLF : Boolean) : A
   while i > 0 do
     begin
       Delete( result, i, 1 );
-      i := Pos(AnsiString(CR),result, i);
+      i := PosEx(AnsiString(CR),result, i);
     end;
   if AppendLF and (result[length(result)] <> LF) then
     Insert( LF, result, length(result)+1 );
