if (savedialog.Execute) and (savedialog.FileName <> '') then
begin
自定义写入文件函数
// puttofile(savedialog.FileName, ID);
end;
begin
自定义写入文件函数
// puttofile(savedialog.FileName, ID);
end;
解决方案 »
- Borland 的中文网站都没有了?
- 如何用一个DELPHI 7 前台程序 处理SQL SERVER 2000 两个数据库?
- 请教delphi怎样实样诸如Delphi编程环境下对象查看器功能.
- 请教安装package时错误!!!!
- 怎么把光标定位在我要找的记录上(如在Dbgrid上)?
- 刚接触DELPHI,有些基础的问题想请教
- 大家帮我看一下我的代码有什么问题,急!!!
- 引入Com服务器的类型库的问题
- DLL窗体与框架焦点问题
- dll的问题,很急!
- 誰能幫我理解兩句關於 ApplicationEvents 的代碼,我看不懂,但要在上面做更改... 謝謝
- 在intranet中用“共享”的方式copy和用ftp方式的copy有什么不同,速度有多少差异,请大家发表各自见解。
begin
自定义写入文件函数
// puttofile(savedialog.FileName, ID);
end;
begin
自定义写入文件函数
// puttofile(savedialog.FileName, ID);
end;
Memo1.Lines.SaveToFile(SaveDialog.FileName);
begin
自定义写入文件函数
// puttofile(savedialog.FileName, ID);
end;