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

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