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;

第二种：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;

第三种：

var

I: Integer;

begin

for I := 1 to 100 do

begin

Memo1.Lines.Add(format('a%4d',[I]));

end;

推荐分享