paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 01:39:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

Taking advantage of fpc_ansistr_concat_multi

Browse Source
This commit is contained in:
Alligator-1 2024-07-01 08:54:32 +05:00
parent f60bed0823
commit c2bca23fd1
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/objpas/sysutils/sysformt.inc
View File

@ -411,13 +411,13 @@ begin
end;
'%': ToAdd:='%';
end;
If Width<>-1 then
If Length(ToAdd)<Width then
If (Width<>-1) and (Length(ToAdd)<Width) then
If not Left then
ToAdd:=TFormatString(Space(Width-Length(ToAdd)))+ToAdd
Result:=Result+TFormatString(Space(Width-Length(ToAdd)))+ToAdd
else
ToAdd:=ToAdd+TFormatString(space(Width-Length(ToAdd)));
Result:=Result+ToAdd;
Result:=Result+ToAdd+TFormatString(space(Width-Length(ToAdd)))
else
Result:=Result+ToAdd;
end;
inc(ChPos);
Oldpos:=ChPos;