paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 06:39:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: clean up

Browse Source 
git-svn-id: trunk@35734 -
This commit is contained in:
mattias 2012-03-05 14:28:42 +00:00
parent 34eceb1e57
commit e3eb046488
1 changed files with 22 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/codetools/basiccodetools.pas
View File

@ -5018,9 +5018,8 @@ begin
if (Txt=nil) or (Txt^=#0) then exit;
TxtRun:=Txt;
StartChar:=SearchWord^;
repeat
while (TxtRun^<>StartChar) and (TxtRun^<>#0) do inc(TxtRun);
if TxtRun^=#0 then exit;
while TxtRun^<>#0 do begin
if TxtRun^=StartChar then begin
CurSearchP:=SearchWord+1;
CurTxtP:=TxtRun+1;
while (CurTxtP^=CurSearchP^) and (CurTxtP^<>#0) do begin
@ -5039,9 +5038,12 @@ begin
inc(Count);
end else
inc(Count);
TxtRun:=CurTxtP;
continue;
end;
end;
inc(TxtRun);
until false;
end;
end;
function SubString(p: PChar; Count: SizeInt): string;