本文整理自网络,侵删。
感谢代码由smkf225@vip.qq.com(89758365) 分享:![](http://ypimg.muzhuangnet.com/Collect/delphi/UpFile/201912/2019121556507441.png)
function Padstring (Str: string; Len: Integer; Padstr: Char) : string ;beginResult := StringOfChar (PadStr, Len -Length (Str) ) + Str;end;
procedure TForm1.Button1Click(Sender: TObject);var I: Integer;beginfor I := 1 to 1000 dobegin Memo1.Lines.Add('A' + Padstring(IntToStr(I), 3,'0'));end;
end;
第二种:www.xuexidashi.vip 提供procedure TForm1.Button3Click(Sender: TObject);var I: Integer; bmstr:string;beginbmstr:='a'+'%.'+Length(IntToStr(100)).ToString+'d';for I := 1 to 100 dobegin Memo1.Lines.Add(Format(bmstr,[i]));end;
end;
第三种:var I: Integer;beginfor I := 1 to 100 dobegin Memo1.Lines.Add(format('a%4d',[I]));end;
相关阅读 >>
Delphi一个非常完整的取windows os 版本信息的函数
Delphi中indy10 的idtcpserver断开客户端连接报错问题的解决办法
更多相关阅读请进入《Delphi》频道 >>