UC知道Delphi 如何在random 随机数前面加字母？
来源：百度知道 编辑：UC知道 时间：2024/06/21 03:20:22
例如：
A10343
A51345
A13456
A.....
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
randomize;
for i:=1 to 1000 do
memo1.lines.add(inttostr(random(10000)+99999));
end;
A10343
A51345
A13456
A.....
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
randomize;
for i:=1 to 1000 do
memo1.lines.add(inttostr(random(10000)+99999));
end;
很简单啊,
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
randomize;
for i:=1 to 1000 do
memo1.lines.add('A'+inttostr(random(10000)+99999)); //字符串简单的拼接
end;