我是这样写的:
var
  TxtFile:TextFile;
begin
 if adoquery1.RecordCount<>0 then
  begin
   AssignFile(TxtFile,'成长记录.Txt');
   ReWrite(TxtFile);
   adoquery1.Filtered:=False;
   adoquery1.First;
   while adoquery1.Eof do
   begin
    Writeln(txtfile,
    adoquery1.FieldByName('等级').value+
    adoquery1.fieldbyname('生命').value+
    adoquery1.fieldbyname('魔力').value+
    adoquery1.fieldbyname('攻击').value+
    adoquery1.fieldbyname('防御').value+
    adoquery1.fieldbyname('敏捷').value+
    adoquery1.fieldbyname('精神').value+
    adoquery1.fieldbyname('恢复').value+
    adoquery1.fieldbyname('体力').value+
    adoquery1.fieldbyname('力量').value+
    adoquery1.fieldbyname('强度').value+
    adoquery1.fieldbyname('速度').value+
    adoquery1.fieldbyname('魔法').value+
    adoquery1.fieldbyname('BP总计').value);
    adoquery1.Next;
   exit;
   end;
   CloseFile(TxtFile);
   MessageDlg('已成功导出文本文件:成长记录.Txt(与执行程序同目录)',mtInformation,[mbOk],0);
   ShellExecute(Handle,nil,'成长记录.Txt',nil,nil,SW_Normal);
  end
  else
   showmessage('当前无宠物记录!');可是输出来却是一个空文本(表中有记录了)
请高手门帮帮忙