tsl

dll

designer/utslcodeeditor.tsf

@@ -1602,26 +1602,27 @@ type TPageEditerItem=class(TPageItem)
     function SetScriptPath(v);
     begin
         sp := ioFileseparator();
-        ddex := 0;
+        ddex := -1;
+        fscriptname:="";
         if ifstring(v)then
         begin
             for i := length(v) downto 1 do
             begin
                 if v[i]=sp then
                 begin  
-                    Caption := v[i+1:]; 
+                    Caption := v[(i+1):]; 
                     if ddex>i then 
                     begin  
-                        fscriptname := v[(i+1):(ddex-1)];                                       
+                        fscriptname := v[(i+1):(ddex)];                                       
                     end else 
                     begin
-                        fscriptname := v[i+1:];    
+                        fscriptname := v[(i+1):];    
                     end 
                     break;
                 end
-                if v[i]="." then
+                if ddex=-1 and v[i]="." then
                 begin
-                    ddex := i;
+                    ddex := i-1;
                     if lowercase(v[i:])in array(".tsl",".tsf")then FTslSynText := true;
                 end
             end
@@ -6046,7 +6047,8 @@ begin
     if not ifstring(d)then return 0;
     als := "";
     len := length(d);
-    if FileExists(als,fn)and(filesize(als,fn)>len)then
+    sp := ioFileseparator();
+    if FileExists(als,fn) and (filesize(als,fn)>len)then
     begin
         lfn := FileList(als,fn); //修正文件名变小写的问题
         if lfn then
@@ -6054,9 +6056,9 @@ begin
             nfn := lfn[0,"FileName"];
             if nfn then
             begin
-                for i := length(fn)downto 1 do
+                for i := length(fn) downto 1 do
                 begin
-                    if fn[i]="\\" then
+                    if fn[i]=sp then
                     begin
                         fn := fn[1:i]+nfn;
                         break;