自动增加的问题,谢谢,急

Question

我现在想在点击button的时候,一个i自动加1,怎么写啊??如开始为0000 ,第二次为0001 第三次为0002.........
依次下去,这个该怎么写啊,谢谢

Answer 1

不明白你想干嘛，只做简单说明,不知道是不是你想要的
public
    i :integer;procedure TForm1.FormShow(Sender: TObject);
begin
   i ;= 0;
end;procedure TForm1.Button1Click(Sender: TObject);
var
ii :integer;
iii :string;
begin
   ii := i+1;
   i := ii;
   iii := rightstr('0000'+intotostr(ii),4);
end;