编辑器

别名--跳转

designer/utslsynmemo.tsf

@@ -1808,7 +1808,7 @@ type TTsfFileParser = class() //
         rl := length(r);
         for i,v in us do 
         begin
-            for j,vj in FNsCaches[v] do 
+            for j,vj in FNsCaches[lowercase(v)] do 
             begin
                 if vj then 
                 begin
@@ -1832,11 +1832,11 @@ type TTsfFileParser = class() //
             vi := LoadByName(vfn); 
             if vi then 
             begin 
-                if vi["msg"] in dounits then 
+                if dounits[vi["msg"]] then 
                 begin
                     continue;
                 end
-                dounits[length(dounits)] := vi["msg"] ;
+                dounits[vi["msg"]] := 1 ;
                 us[length(us)] := vfn;
                 uso[length(uso)] := vi;
                 getinheriteds(vi,m,dounits,us,uso,cs,cso);               
@@ -1850,8 +1850,8 @@ type TTsfFileParser = class() //
             vi := LoadByName(vfn);
             if vi then 
             begin
-                if vi["msg"] in dounits then continue;
+                if  dounits[vi["msg"] ] then continue;
-                dounits[length(dounits)] := vi["msg"]; 
+                dounits[vi["msg"]] := 1; 
                 cs[length(cs)] := vfn;
                 cso[length(cso)] := vi;
                 getinheriteds(vi,m,dounits,us,uso,cs,cso);
@@ -1891,7 +1891,7 @@ type TTsfFileParser = class() //
         FormatFunction(rti,r["functions"],rt,"",r["lines"],ext,1);
         FormatBlocks(rti,r["blcks"],rt,"",nil,ext,1);
         FormatWords(rti,r["words"],rt,"",ext,1); 
-        dounits := array(vmsg); 
+        dounits := array(vmsg:1); 
         getinheriteds(r,m,dounits,us,uso,cs,cso);
         for i,v in us do //单元
         begin