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.,为什么保存文件时不能这样
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.,为什么保存文件时不能这样
解决方案 »
- 怎样将数据图形化,请教一个思路。
- 如何用ADO+INI文件动态连接数据库(MS SQL)
- 怎么样让Webbrowser在打开一张网页前先打开一张等待信息的页面???
- 结余计算问题
- 为什么用showmodal调用的窗口中,调用adoquery1.refresh后会自动关闭?
- 请教高手:如何让CPU占用率高的程序反应不太慢?(象Flash)
- 一个很简单的问题,在线等侍
- delphi里怎么打包程序?
- 关于nil与sender的问题?
- 怎么用微软的Filesystemobject 返回一个目录下的所有目录和文件
- "Upnp Delphi Component"究竟要什么版本的Indy?!!
- 急!!!关于强制删除excel文件问题
begin
Rename(FileList[i],'NewName.Ext');
P('NewName.Ext');//处理
Rename('NewName.Ext',FileList[i]);
end;
begin
inc(i);
iplot1.SaveImageToBitmap('d:\images\'+inttostr(i)+'.bmp');
end;