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

MaskEdit: fix potential crash in ApplyMaskToText, that only worked because of implementation details of the internal GetCodePoint function.

Browse Source
This commit is contained in:
Bart 2022-10-04 10:37:44 +02:00
parent 4fda5f9771
commit 79c009420a
1 changed files with 21 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/maskedit.pp
View File

@ -1812,6 +1812,10 @@ begin
else
begin//FMaskSave = False
if FTrimType = metTrimRight then
begin
//while GetCodePoint does not crash on an empty string (and it does not return a #32), it sort of worked by accident in that scenario
//and it crashed in similar function in MaskUtils because of that, see: https://forum.lazarus.freepascal.org/index.php/topic,60803.0.html
if (Value <> '') then
begin
//fill text from left to rigth, skipping MaskLiterals
j := 1;
@ -1824,10 +1828,13 @@ begin
if j > Utf8Length(Value) then Break;
end;
end;
end;
end
else
begin
//fill text from right to left, skipping MaskLiterals
if (Value <> '') then
begin
j := Utf8Length(Value);
for i := FMaskLength downto 1 do
begin
@ -1839,6 +1846,7 @@ begin
end;
end;
end;
end;
end;//FMaskSave = False
Result := S;
end;