如何清空文件内容? No.1 用空内容覆盖with TStringList.Create do try SaveToFile('c:\temp.dat');finally Free;end; 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 No.2 标准语句procedure TForm1.Button1Click(Sender: TObject);var f: file;begin AssignFile(f, 'c:\temp.dat'); Rewrite(f); CloseFile(f);end; varinputfile:Textfile;beginassignfile(inputfile,'c:\1.txt');rewrite(inputfile);writeln(inputfile,'');closefile(inputfile);end; tesseract3.01训练的问题 delphi powerpoint 组件使用问题 topgrid的问题 单元格属性为combo时 如果让鼠标进入该单元格或在该单元格输入内容 就使其自动下拉? 为什么在DBChart中看不到字段'Itm'? 关于Avphone的问题??捕捉视频很慢。 有提供输入密码的对话框吗? idHttp论坛发帖提示非法操作... 请指教有关bde和9i的问题 打印预览问题?(Nizvoo) 我这样为何不对?? 如何输入条形码? 关于win2000特殊共享
procedure TForm1.Button1Click(Sender: TObject);
var
f: file;
begin
AssignFile(f, 'c:\temp.dat');
Rewrite(f);
CloseFile(f);
end;
inputfile:Textfile;
begin
assignfile(inputfile,'c:\1.txt');
rewrite(inputfile);
writeln(inputfile,'');
closefile(inputfile);
end;