编辑器

修正文件夹查找

designer/utslcodeeditor.tsf

@@ -3860,7 +3860,7 @@ type TEditer=class(TCustomcontrol) //
             if not((wrp .& 2) >1) then ctl := ctl+"\\b";
         end 
         if cw then ctl2 += "i";
-        linesi := array(1:1);
+        linesi := array(0:1);
         if (1 = readfile(rwraw(),"",f,0,filesize("",f),s)) and s then 
         begin
             strcode := 0;
@@ -3904,6 +3904,7 @@ type TEditer=class(TCustomcontrol) //
             end
             ////////////////////////////////////////////////////////////////////////////////////
             slen := length(s);
+            orid := -1;
             if 1= parseregexpr(ctl,s,ctl2,m,mp,mlen) then 
             begin
                 r := array();