paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 13:09:22 +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; end;
'%': ToAdd:='%'; '%': ToAdd:='%';
end; end;
If Width<>-1 then If (Width<>-1) and (Length(ToAdd)<Width) then
If Length(ToAdd)<Width then
If not Left then If not Left then
ToAdd:=TFormatString(Space(Width-Length(ToAdd)))+ToAdd Result:=Result+TFormatString(Space(Width-Length(ToAdd)))+ToAdd
else else
ToAdd:=ToAdd+TFormatString(space(Width-Length(ToAdd))); Result:=Result+ToAdd+TFormatString(space(Width-Length(ToAdd)))
Result:=Result+ToAdd; else
Result:=Result+ToAdd;
end; end;
inc(ChPos); inc(ChPos);
Oldpos:=ChPos; Oldpos:=ChPos;