Delphi 实现产品编号批量生成简单算法

本文整理自网络，侵删。

 
感谢代码由smkf225@vip.qq.com(89758365) 分享：


function Padstring (Str: string; Len: Integer; Padstr: Char) : string ;
begin
Result := StringOfChar (PadStr, Len -Length (Str) ) + Str;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
for I := 1 to 1000 do
begin
  Memo1.Lines.Add('A' + Padstring(IntToStr(I), 3,'0'));
end;

end;



第二种：www.xuexidashi.vip 提供
procedure TForm1.Button3Click(Sender: TObject);
var
  I: Integer;
  bmstr:string;
begin
bmstr:='a'+'%.'+Length(IntToStr(100)).ToString+'d';
for I := 1 to 100 do
begin
  Memo1.Lines.Add(Format(bmstr,[i]));
end;

end;


第三种：
var
  I: Integer;
begin
for I := 1 to 100 do
begin
  Memo1.Lines.Add(format('a%4d',[I]));
end;
 

相关阅读 >>

Delphi 判断目录是否存在,不存在则创建目录并打开,存在则直接打开

Delphi idhttp http.get 获取json数据

Delphi下获取ie的useragent的方法

Delphi 10.3 中安装程序自动升级插件autoupgrader_pro_v5.2

Delphi百度云服务平台获取token

Delphi idpop3收邮件

Delphi 的 tstringbuilder 可以完美实现jave ,c#的tstringbuilder功能

Delphi webbrowser控件实现对ie浏览器的各种控制

Delphi 用dde控制word

Delphi 把文件锁定到任务栏

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 实现产品编号批量生成简单算法