编辑器

修正文件夹查找
2023-04-26 10:39:22 +08:00
parent 5efd806288
commit 14e4839144
1 changed files with 2 additions and 1 deletions
@@ -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();