我是这样写的:
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('当前无宠物记录!');可是输出来却是一个空文本(表中有记录了)
请高手门帮帮忙
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('当前无宠物记录!');可是输出来却是一个空文本(表中有记录了)
请高手门帮帮忙
解决方案 »
- 请问有什么办法不用netblos,arp 取远程计算机信息的方法吗?
- 高手指点,如何在DLL中正常使用EXE传递的数据集?
- 我想取别的程序窗口中的TTreeView中的节点的文本,如何才能取到??请想想办法,急
- 有关Navigate method (TWebBrowser)的问题。急,UP有分
- 请问我用Delphi和access做了一个小信息管理系统。但运行时有个错误,各位高手救救我吧
- 如何将DBComboBox的内容插入数据库?
- 手头有个小程序,有兴趣兼职的请联系我
- Delphi 怎样调用其他工具实现的Web Services服务(如MS.net)?
- 高手请看以下问题:关于ACCESS数据库的…………
- 如何在WINDOWS中调试网络应用程序?
- Happy New Year!如何把quickReport的结果保存到word?
- 怎样取得工作组中的所有计算机名?
同时Exit不要