mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-19 23:19:30 +02:00
codetools: clean up
git-svn-id: trunk@35734 -
This commit is contained in:
parent
34eceb1e57
commit
e3eb046488
@ -5018,9 +5018,8 @@ begin
|
|||||||
if (Txt=nil) or (Txt^=#0) then exit;
|
if (Txt=nil) or (Txt^=#0) then exit;
|
||||||
TxtRun:=Txt;
|
TxtRun:=Txt;
|
||||||
StartChar:=SearchWord^;
|
StartChar:=SearchWord^;
|
||||||
repeat
|
while TxtRun^<>#0 do begin
|
||||||
while (TxtRun^<>StartChar) and (TxtRun^<>#0) do inc(TxtRun);
|
if TxtRun^=StartChar then begin
|
||||||
if TxtRun^=#0 then exit;
|
|
||||||
CurSearchP:=SearchWord+1;
|
CurSearchP:=SearchWord+1;
|
||||||
CurTxtP:=TxtRun+1;
|
CurTxtP:=TxtRun+1;
|
||||||
while (CurTxtP^=CurSearchP^) and (CurTxtP^<>#0) do begin
|
while (CurTxtP^=CurSearchP^) and (CurTxtP^<>#0) do begin
|
||||||
@ -5039,9 +5038,12 @@ begin
|
|||||||
inc(Count);
|
inc(Count);
|
||||||
end else
|
end else
|
||||||
inc(Count);
|
inc(Count);
|
||||||
|
TxtRun:=CurTxtP;
|
||||||
|
continue;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
inc(TxtRun);
|
inc(TxtRun);
|
||||||
until false;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function SubString(p: PChar; Count: SizeInt): string;
|
function SubString(p: PChar; Count: SizeInt): string;
|
||||||
|
Loading…
Reference in New Issue
Block a user