paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-09 08:56:02 +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

34
lcl/maskedit.pp
View File

@ -1813,29 +1813,37 @@ begin
begin//FMaskSave = False
if FTrimType = metTrimRight then
begin
//fill text from left to rigth, skipping MaskLiterals
j := 1;
for i := 1 to FMaskLength do
//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
if not IsLiteral(i) then
//fill text from left to rigth, skipping MaskLiterals
j := 1;
for i := 1 to FMaskLength do
begin
if (GetCodePoint(Value,j) = #32) then SetCodePoint(S,i,FSpaceChar) else SetCodePoint(S,i, GetCodePoint(Value,j));
Inc(j);
if j > Utf8Length(Value) then Break;
if not IsLiteral(i) then
begin
if (GetCodePoint(Value,j) = #32) then SetCodePoint(S,i,FSpaceChar) else SetCodePoint(S,i, GetCodePoint(Value,j));
Inc(j);
if j > Utf8Length(Value) then Break;
end;
end;
end;
end
else
begin
//fill text from right to left, skipping MaskLiterals
j := Utf8Length(Value);
for i := FMaskLength downto 1 do
if (Value <> '') then
begin
if not IsLiteral(i) then
j := Utf8Length(Value);
for i := FMaskLength downto 1 do
begin
if (GetCodePoint(Value,j) = #32) then SetCodePoint(S,i,FSpaceChar) else SetCodePoint(S,i, GetCodePoint(Value,j));
Dec(j);
if j < 1 then Break;
if not IsLiteral(i) then
begin
if (GetCodePoint(Value,j) = #32) then SetCodePoint(S,i,FSpaceChar) else SetCodePoint(S,i, GetCodePoint(Value,j));
Dec(j);
if j < 1 then Break;
end;
end;
end;
end;