函数功能：当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;
Delphi中字符串补齐方法,布布扣,bubuko.com
Delphi中字符串补齐方法
原文：http://www.cnblogs.com/theonewu/p/3693274.html
