在线，简单，送分！

Question

解出即给分。
比如我定义了数组
var
A:array [1..101] of integer;现在我要通过每单击一次button就 picture.savetofile(即保存下的图片放在c:\11 目录下，文件名用数组中的1.bmp,2.bmp,3.bmp,...101.bmp)保存一幅图片。
谢了，在线等。

Answer 1

var i:integer;
form建立时
    i:=0;procedure Button1Click(Sender: TObject);
var
  s:string;
begin
  i:=i+1;
  s:=inttostr(A[i]);
  image1.picture.savetofile('c:\11\'+S+'.bmp');
end;

Answer 2

var i: Integer;
form的OnCreate事件中定义i := 0;在Button的OnClick事件中定义如下
i := i + 1;
Image.Picture.SaveToFile('c:\11\' + IntToStr(A[i]) + '.bmp');