paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 03:19:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix from Bart for issue #39938

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-10-04 11:14:00 +02:00
parent f8848dd185
commit e736011c37
1 changed files with 22 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/fcl-base/src/maskutils.pp
View File

@ -780,6 +780,8 @@ begin
end//FMaskSave = True
else
begin//FMaskSave = False
if Value<>'' then
begin
if FTrimType = metTrimRight then
begin
//fill text from left to rigth, skipping MaskLiterals
@ -808,6 +810,7 @@ begin
end;
end;
end;
end;
end;//FMaskSave = False
Result := S;
end;