函数功能:当Str不满Len长度时,在Str前自动填充FillStr以补足长度
function FillString(const Str: string; Len: Integer; FillStr: Char): string;
begin
Result:= StringOfChar(FillStr, Len - Length(Str)) + Str;
end;
使用方法:
jkje:=FillString(jkje,8,' '); //有空格
函数功能:当Str不满Len长度时,在Str前自动填充FillStr以补足长度
function FillString(const Str: string; Len: Integer; FillStr: Char): string;
begin
Result:= StringOfChar(FillStr, Len - Length(Str)) + Str;
end;
使用方法:
jkje:=FillString(jkje,8,' '); //有空格