paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-28 05:09:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazutils: fixed replacesubstring append

Browse Source 
git-svn-id: trunk@47018 -
This commit is contained in:
mattias 2014-11-28 14:23:29 +00:00
parent 05a395046c
commit 172eada300
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/lazutils/lazlogger.pas
View File

@ -793,8 +793,10 @@ var
p: PByte; p: PByte;
begin begin
SLen:=length(s); SLen:=length(s);
if StartPos>SLen then if StartPos>SLen then begin
StartPos:=SLen; s:=s+Insertion;
exit;
end;
if StartPos<1 then StartPos:=1; if StartPos<1 then StartPos:=1;
if Count<0 then Count:=0; if Count<0 then Count:=0;
MaxCount:=SLen-StartPos+1; MaxCount:=SLen-StartPos+1;