怎么才能多次向文本文件添加记录！！？？？

Question

1、
var   s : string;
 begin
   Write('Enter a line of text: ');
   Readln(s);
   Writeln('You typed: ',s);
   Writeln('Hit <Enter> to exit');
   Readln; end;
多用Wrinteln2、读出用Readln，上面例子里也有，读出来后自己处理。

Answer 1

我是想通过多次响应button来添加记录？？？？

Answer 2

我觉得你的思想不对，你老让别人帮你写代码，
那对你没好处，这些都是些基本的东西，建议你自己写。
1、如果你在用button
就把这句Writeln('You typed: ',s);写到里面，找开文件的写到oncreate
也可以第次都重新打开，但浪费资源2、用query1.append;
query1.fieldbyname('name').asstring:=...
...
向数据库中写。

Answer 3

用一个TStrings类型来作中间处理，处理完后再用SaveToFile保存

Answer 4

1。输出到文本：
var 
  F: TextFile;
  ID: String[8];
  Name: String[8];
begin
  AssignFile(F,'table.txt');
  Append(F);
  ID := text1.text;
  Name := text2.text;
  
  try
    Writeln(F,ID,Name);
  finally
    CloseFile(F);
end;2.导入数据库
var 
  F: TextFile;
  ID: String[8];
  Name: String[8];
begin
  tbl.Open;
  AssignFile(F,'table.txt');
  Reset(F);
   
  try
    while not Eof(F) do
    begin
      Readln(F,ID,Name);
      tbl.Insert;
      tbl['ID'] := ID;
      tbl['Name'] := Name;
      tbl.Post;
    end;
  finally
    CloseFile(F);   
end;