Delphi中补齐字符串长度

函数功能：当Str不满Len长度时，在Str前自动填充FillStr以补足长度
function FillString(const Str: string; Len: Integer; FillStr: Char): string;
begin
Result:= StringOfChar(FillStr, Len - Length(Str)) + Str;
end;

来源：CSDN

作者：博帕尔2019

链接：https://blog.csdn.net/sidely/article/details/39341885