界面库

优化
2022-08-12 16:52:49 +08:00
parent 8ea9849190
commit e77ddf4e7a
3 changed files with 113 additions and 71 deletions
@@ -1018,9 +1018,10 @@ type TVclDesigner = class(tvcform)
        begin 
            f := FProjectFileOpener.FileName;
            FProjectsManager.OpenFileFromTpjFile(f);
-            for i := length(f) downto 3 do 
+            fio := ioFileseparator();
+            for i := length(f) downto 2 do 
            begin
-                if f[i]="\\" then 
+                if f[i]=fio then 
                begin
                    FProjectFileOpener.initialDir := f[1:(i-1)];
                    break;
@@ -1035,7 +1036,7 @@ type TVclDesigner = class(tvcform)
        fio := ioFileseparator();
        if f then 
        begin 
-            for i := length(f) downto 3 do 
+            for i := length(f) downto 2 do 
            begin
                if f[i]=fio then 
                begin