如何写内容到文本文件中去?

Question

var sFile: String;
    tFile: TextFile;sFile := 'c:\111.txt';
AssignFile(sFile);
if FileExists(sFile) then
  Append(tFile)
else
  ReWrite(tFile);
WriteLn(tFile,'asd');
WriteLn(tfile,'中国;2001-02-12;') ;
WriteLn(tFile);
Writeln(tFile,'OK');
CloseFile(tFile);

Answer 1

你可以使用TStrings对象来完成你的功能，如memo.lines就是一个Tstrings对象。
var
str:tstrings
begin
str:=trstrings.create;
str.Add(' ');//空格
str.Add('asd');
str.Add('中国;2001-02-12;');
str.SaveToFile('c:\tmp.txt');

Answer 2

首先ReadFile读出文本文件
然后将内容加到读出的文本文件中就可以了
添加空行，就是添加一个换行回车就可以了

Answer 3

var
  i :Integer;
begin
  Memo1.Lines.LoadFromFile('aa');
  for i = 0 to Memo1.Lines.Count -  1 do
  begin
    ShowMessage(Memo1.Lines.Strings[i]);
  end;
end;  Memo1.Lines.Insert(1,'aa'); 这是Insert还有ADD、APPEND多了自己看吧