初学dephi，50分请问怎样打开一个txt文件，写入一行文字，然后关闭文件？

Question

是不是既可以用系统调用，又可以用类啊？如果是，两种方法请分别举个例子。谢谢！

Answer 1

var
  f:textfile;
begin
  assignfile(f,'c:\try.txt')
  rewrite(f);
  writeln(f,'asdfasd');
  closefile(f);
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var sl: TStringList;
begin
  sl := TStringList.Create;
  sl.LoadFromFile('c:\test.txt');
  sl.Insert(0, '插入一行文字');
  sl.SaveToFile('c:\test.txt');
  sl.Free;
end;

Answer 3

写在最后面就不用Insert，用Add：
sl.Add('插入一行文字');

Answer 4

C/C++里都是这样表示的："C:\\test.txt"dephi里'\'就用'\'来表示，而不是'\\'吗？

Answer 5

var
  f:textfile;
begin
  assignfile(f,'c:\try.txt')
  Append(f);
  writeln(f,'asdfasd');
  closefile(f);
end;

Answer 6

死树的方式比较好，建议采用，用TEXTFILE老是打开是会出错

Answer 7

var
  F:TextFile;
begin
  AssignFile(F,'c:\风过留痕.txt')
  Append(F);
  Try
   Writeln(f,'asdfasd');
  Finally
   CloseFile(F);
  end;
end;

Answer 8

新建就不用那句LoadFromFile，添加以后SaveToFile就行了。
procedure TForm1.Button1Click(Sender: TObject);
var sl: TStringList;
begin
  sl := TStringList.Create;
  sl.Add('插入一行文字1');
  sl.Add('插入一行文字2');
  sl.Add('插入一行文字3');
  sl.SaveToFile('c:\test.txt');
  sl.Free;
end;

Answer 9

同意使用sysu的方法，但是其他各位也是可以的，File的操作不只限Txt操作的，其他的文件类型也是可以的，比如自定义的文件类型