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

Merged revision(s) 43985 #d5e1ced666 from trunk:

Browse Source 
MaskEdit: fix possible crash in PasteFromClipBoard.
........

git-svn-id: branches/fixes_1_2@44012 -
This commit is contained in:
maxim 2014-02-11 21:52:52 +00:00
parent 1620cdf11f
commit 20dd03f617
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/maskedit.pp
View File

@ -1914,7 +1914,7 @@ begin
//debugln(' P = ',dbgs(p));
//debugln(' S = ',s);
//debugln(' ClipText = ',ClipText);
while (P <= FMaskLength) do
while (P <= FMaskLength) and (i <= Utf8Length(ClipText)) do
begin
//Skip any literal
while (P < FMaskLength) and (IsLiteral(FMask[P])) do Inc(P);