怎样将从数据库中检索出来的记录写到txt文本中?字段间用tab键分割

Question

如题,用ado组建连接数据库,检索出来的记录逐条写道记事本中,字段间用tab间分隔,怎么实现?

Answer 1

while not 数据库.eof do
begin
  for i:=0 to 字段总数-1 do
  begin
    写fieldbyno(i)+$9;
  end;
end;

Answer 2

添加writeln
  end;
  writeln; // 添加
end;

Answer 3

使用writeln(field1+$9+field2+$9+......)

Answer 4

忘了说明一点
write/writeln好象只能在Console中使用,否则会产生异常用TStringListvar
  sl: TStringList;
  s: String;
begin
  sl := TStringList.Create;
  while not adoquery1.eof do
  begin
    for i:=0 to adoquery1.fieldcount-1 do
    begin
      s := adoquery1.fields[0].asstring+$9;
    end;
    sl.add(s);
    adoquery1.next;
  end;
  sl.savetofile('test.txt');
  sl.free;
end;