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 application.processmessage作用

Delphi 取得txt文件编码

Delphi 截取被遮挡的window画面

Delphi+access错误"不正常地定义参数对象。提供了不一致或不完整的信息。"

Delphi关于dbgrid和webbrowser的焦点问题

Delphi 泛型,存放n张图片

Delphi

Delphi xp 之后, Delphi 动注册表不方便了...逼出来一个办法:

Delphi从内存流中判断图片格式

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...