paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-25 23:19:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazDE: fixed possible range error from Wanderlan (bug #10221)

Browse Source 
git-svn-id: trunk@13037 -
This commit is contained in:
vincents 2007-11-26 15:01:44 +00:00
parent be24384dfd
commit 79c4c07012
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
doceditor/eleditor.pp
View File

@ -440,7 +440,6 @@ begin
end; end;
Procedure TElementEditor.DeleteElement; Procedure TElementEditor.DeleteElement;
begin begin
Element:=Nil; Element:=Nil;
end; end;
@ -456,7 +455,7 @@ Procedure TElementEditor.Refresh;
Remove := pos(Tag, S); Remove := pos(Tag, S);
while Remove <> 0 do begin while Remove <> 0 do begin
inc(Remove, LenTag); inc(Remove, LenTag);
while S[Remove] in [#10, #13] do while (Remove <= length(S)) and (S[Remove] in [#10, #13]) do
delete(S, Remove, 1); delete(S, Remove, 1);
Remove := PosEx(Tag, S, Remove); Remove := PosEx(Tag, S, Remove);
end; end;
@ -951,3 +950,4 @@ initialization
end. end.

2
doceditor/frmmain.pp
View File

@ -905,10 +905,10 @@ begin
TToolButton(Components[i]).ShowHint:=ShowHelpHints; TToolButton(Components[i]).ShowHint:=ShowHelpHints;
end; end;
initialization initialization
{$I frmmain.lrs} {$I frmmain.lrs}
end. end.