Delphi中字符串补齐方法

函数功能：当Str不满Len长度时，在Str前自动填充PadStr以补足长度,例子如下：

Str：原字符串

Len：补多长

PadStr：用什么补齐，比如‘0’

function PadString(Str: string; Len: Integer; PadStr: Char): string;

begin

　　Result:= StringOfChar(PadStr, Len - Length(Str)) + Str;

end;