如何delphi创建文本文件

Question

如题

Answer 1

最方便的办法procedure TForm1.Button1Click(Sender: TObject);
var
  a : TStringList;
begin
  a := TStringList.Create;
  try
    a.Add('wudi_1982');
    a.SaveToFile('d:\wudi.txt');
  finally
    a.Free;
  end;
end;

Answer 2

也可以这样
procedure TForm1.Button2Click(Sender: TObject);
var
 f :TextFile;
begin   AssignFile(f,'d:\abc.txt');
   Rewrite(f);
   Append(f);
   Writeln(f,'sdfasdfa');
   closefile(f);
end;