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

* Reflow code for clarity

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-07-01 08:32:10 +02:00
parent c2bca23fd1
commit 8cd3e72b36
1 changed files with 14 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -411,13 +411,21 @@ begin
end; end;
'%': ToAdd:='%'; '%': ToAdd:='%';
end; end;
If (Width<>-1) and (Length(ToAdd)<Width) then // Padding ?
If not Left then If (Width=-1) or (Length(ToAdd)>=Width) then
Result:=Result+TFormatString(Space(Width-Length(ToAdd)))+ToAdd // No width specified or the string to add has required width or greater
Result:=Result+ToAdd
else else
Result:=Result+ToAdd+TFormatString(space(Width-Length(ToAdd))) begin
// String to add is less than requested width. Calc padding string
hs:=TFormatString(space(Width-Length(ToAdd)));
if Left then
// Add left aligned
Result:=Result+ToAdd+hs
else else
Result:=Result+ToAdd; // Add right aligned
Result:=Result+hs+ToAdd;
end;
end; end;
inc(ChPos); inc(ChPos);
Oldpos:=ChPos; Oldpos:=ChPos;