可以直接对文件File操作,如:
var F: TextFile;
begin
AssignFile(F, 'NEWFILE.$$$');
Rewrite(F);
Writeln(F, 'Just created file with this text in it...');
CloseFile(F);
end;
或者,你用一个TStringList记录后直接SaveToFile,如:
var
AList: TStringList;
begin
AList := TStringList.Create;
try
AList.Add('No.1');
...
AList.SaveToFile('D:\123.txt');
finally
AList.Free;
end;
end;