加载中…猪猪编程：Delphi中补齐字符串长度
(2011-12-31 15:17:24)
标签：
编程delphiit |
分类： 计算机 |
函数功能：当Str不满Len长度时，在Str前自动填充FillStr以补足长度
function FillString(const Str: string; Len: Integer; FillStr: Char): string;
begin
Result:= StringOfChar(FillStr, Len - Length(Str)) + Str;
end;
function FillString(const Str: string; Len: Integer; FillStr: Char): string;
begin
Result:= StringOfChar(FillStr, Len - Length(Str)) + Str;
end;
喜欢
0
赠金笔