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

SynEdit:Fix crash in multiline pattern replace (Bug #12714)

Browse Source 
git-svn-id: trunk@17590 -
This commit is contained in:
martin 2008-11-25 23:08:46 +00:00
parent 7ed7f3098d
commit 94d0fe9be2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/syneditsearch.pp
View File

@ -711,7 +711,7 @@ var
for i:=MinY to MaxY do
inc(NeededLen,length(Lines[i]));
e:=LineEnding;
inc(NeededLen,length(e)*(EndPos.Y-StartPos.Y));
inc(NeededLen,length(e)*(MaxY-MinY+1));
// copy lines
SetLength(Result,NeededLen);
p:=1;