1、置文件为空
AssignFile(f,'11.txt');
Rewrite(f);
CloseFile(f);
2、用TStringList
Memo1.lines.Clear;
Memo1.Lines.SaveToFile('11.txt');
AssignFile(f,'11.txt');
Rewrite(f);
CloseFile(f);
2、用TStringList
Memo1.lines.Clear;
Memo1.Lines.SaveToFile('11.txt');
adon(阿东)的方法就可以阿!