var
  i:integer=10;
procedure TForm1.Button1Click(Sender: TObject);
begin
  i:=i+1;
  edit1.Text:=inttostr(i);
  iplot1.SaveImageToBitmap('d:\images\i.bmp');
end;
我想在保存的时候每按一次Button1,自动保存文件名为11.bmp,12.bmp,13.bmp的文件,现在我已经能够按一次Button1,Edit1.text变成11,12,13.,为什么保存文件时不能这样

解决方案 »

  1.   

    iplot1.SaveImageToBitmap('d:\images\' + IntToStr(i) + '.bmp');
      

  2.   

    又被抢了。erhan中午都不休息么
      

  3.   

    要改名的文件全部放FileList中for i:=0 to FileList.Count-1 do
    begin
      Rename(FileList[i],'NewName.Ext');
      P('NewName.Ext');//处理
      Rename('NewName.Ext',FileList[i]);
    end; 
      

  4.   

    procedure TForm1.Button1Click(Sender: TObject);
    begin
      inc(i);
      iplot1.SaveImageToBitmap('d:\images\'+inttostr(i)+'.bmp');
    end;
      

  5.   

    关键是类型转换 INTTOSTR(I)