本文整理自网络,侵删。
适宽处理:function PadLeft(TotalWidth: Integer): string;function PadLeft(TotalWidth: Integer; PaddingChar: Char): string;function PadRight(TotalWidth: Integer): string;function PadRight(TotalWidth: Integer; PaddingChar: Char): string;//--------------------------------------------------------------------------------var str: string;begin str := '1'; str := str.PadLeft(4, '0'); // 0001end;
相关阅读 >>
更多相关阅读请进入《Delphi》频道 >>