paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-05 04:37:15 +01:00
Code Issues Packages Projects Releases Wiki Activity

MaskEdit: fix possible crash in PasteFromClipBoard.

Browse Source 
git-svn-id: trunk@43985 -
This commit is contained in:
bart 2014-02-09 16:40:44 +00:00
parent 9bf7ff7e09
commit d5e1ced666
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

@ -1927,7 +1927,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);