本文整理自网络,侵删。
函数功能:当Str不满Len长度时,在Str前自动填充FillStr以补足长度function FillString(const Str: string; Len: Integer; FillStr: Char): string;beginResult:= StringOfChar(FillStr, Len - Length(Str)) + Str;end;――――――――――――――――
原文链接:https://blog.csdn.net/sidely/article/details/39341885
相关阅读 >>
Delphi 隐藏进程的单元 unit hideprocess.pas
Delphi 得到 winrar 处理解压缩文件的返回值 ?
更多相关阅读请进入《Delphi》频道 >>