#483

pyscripter · pyscripter · commit a650ee79b838 · 2024-09-18T01:40:44.000+03:00
diff --git a/Source/PythonEngine.pas b/Source/PythonEngine.pas
@@ -3021,9 +3021,8 @@ function CleanString(const s : UnicodeString; AppendLF : Boolean = True) : Unico
 implementation
 
 uses
-{$IFDEF FPC}
   StrUtils,
-{$ELSE}
+{$IFNDEF FPC}
   AnsiStrings,
 {$ENDIF}
 {$IFDEF MSWINDOWS}
@@ -4660,15 +4659,15 @@ procedure TPythonEngine.Initialize;
 
   procedure SetPythonPath(var Config: PyConfig);
   var
-    Paths: TArray<string>;
+    Paths: TStringDynArray;
     I: Integer;
     PWSL: PPyWideStringList;
   begin
     if FPythonPath = '' then Exit;
 
     PWSL := PPyWideStringList(PByte(@Config) + ConfigOffests[MinorVersion,
       TConfigFields.module_search_paths]);
-    Paths := string(FPythonPath).Split([PathSep]);
+    Paths := SplitString(string(FPythonPath), PathSep);
     for I := 0 to Length(Paths) - 1 do
     begin
       if (Paths[I] = '') and (I > 0) then
