如何将数据写到TXT文件中？

Question

每秒收到一个数据，将其写入TXT文件中，好象WRITE函数可以，但是具体如何实现？
  反过来，从TXT文件中把存入的数据再读出来有怎么操作那？

Answer 1

var 
  F: TextFile;
  S: string;
begin
  S := '3r234234';
  AssignFile(F, 'c:\a.txt');
  Reset(F);
  WriteLn(F,S);
  CloseFile(F);
end;

Answer 2

每秒,晕倒，如果再加上多用户，估计IO会报错。建议先存在一个TStringList里，最后再save.

Answer 3

var 
  F: TextFile;
  S: string;
begin
  S := '3r234234';
  AssignFile(F, 'c:\a.txt');
  Reset(F);
  WriteLn(F,S);
  CloseFile(F);
end;//写入数据var 
  F: TextFile;
  S: string;
begin
  AssignFile(F, 'c:\a.txt');
  Reset(F);
  whle not eof (F) do
  ReadLn(F,S);
  end;
  showmessage(s); 
  CloseFile(F);
end;

Answer 4

var 
  F: TextFile;
  S: string;
begin
  AssignFile(F, 'c:\a.txt');
  Reset(F);
  whle not eof (F) do
  ReadLn(F,S);
  end;
  showmessage(s); 
  CloseFile(F);
end;  //读出数据