你们试了吗?我试了不好使!
解决方案 »
- delphi TDBNavigator 怎么个分页,如何设定一页显示想要的多少条数据?
- FSReceive.WriteBuffer(bufReceive^,iReceiveLength);这句代码出错,一般是什么原因?
- 就80分,求一段取得汉字拼音首字母的存储过程
- 一个关于ADO的问题内存出错,帮下忙啊各位...
- 关于ADO的问题,盼望兄弟们帮忙
- 急急,今天要加进程序中,大家帮忙啊,狂送50分
- 哪里可以看到基于浏览器的三层应用程序?
- 求用Delphi测试多台远程计算机的连接问题?
- 对于Delphi初学者应该买什么书籍好?
- 请各位大侠讨论Delphi是否支持红外的问题?
- 请问各位大哥在哪可买到MAPX的书???
- 特急:请问一个关于数据库的问题!(大师请进)
F: Textfile;
begin
OpenDialog1.Title := 'Delete File';
if OpenDialog1.Execute then begin
AssignFile(F, OpenDialog1.FileName);
try
Reset(F);
if MessageDlg('Erase ' + OpenDialog1.FileName + '?',
mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
CloseFile(F);
Erase(F);
end;
except
on EInOutError do MessageDlg('File I/O error.', mtError, [mbOk], 0);
end;
end;
end;