怎样将一个表中的记录写到文本文件？？？？追加写入，循环读出字段内容写，不转行

Question

谢谢

Answer 1

var
  tmp: string;
begin
  tmp:='';
  with Query1 do
  begin
    First;
    while not Eof do
    begin
      tmp:=tmp+FieldByName('vcCKMC').AsString;
      Next;
    end;
  end;
  with TStringList.Create do
  try
    Text:=tmp;
    SaveToFile('E:\AA.TXT');
  finally
    Free;
  end;

Answer 2

var
  F: TextFile;
  S: string;
begin  
  S := 要追加写入的内容;
  AssignFile(F, 'D:\Test.txt');
  Append(F);
  Write(F, S);
  CloseFile(F2);  
end;

Answer 3

var
  F: TextFile;
  S: string;
begin  
  S := 要追加写入的内容;
  AssignFile(F, 'D:\Test.txt');
  Append(F);
  Write(F, S);
  CloseFile(F);  
end;

Answer 4

//这样？
var
  tmp: String;
  sl: TStrings;
  i: Integer;
begin
  sl := TStringList.Create;
  ADOQuery1.First;
  try
    while (ADOQuery1.Eof = False) do
    begin
      tmp := '';
      for i := 0 to (ADOQuery1.FieldCount - 1) do //循环取字段值？
        tmp := tmp + ' ' + ADOQuery1.Fields[i].AsString;
      sl.Add(tmp);
      ADOQuery1.Next;
    end;
    sl.SaveToFile('aaa.txt');
  finally
    sl.Free;
  end;
end;

Answer 5

var
  F: TextFile;
  S: string;
begin  
  S := 要追加写入的内容;
  AssignFile(F, 'D:\Test.txt');
  Append(F);
  Write(F, S);
  CloseFile(F);  
end;

Answer 6

如图像 -> 文本文件 ??
有BLOB的字段，怎样处理