谁说的详细点
我刚学才1礼拜
我刚学才1礼拜
解决方案 »
- delphi通过修改socket做三层,能实现一个服务器2万个客户端的连接?
- 在数据库sql server 里float 类型的数据(例如:34.56)为什么在dbgrid里显示时变成了34.459797
- Voice Board API to Delphi Components (斑竹为何删我帖子????????)
- 我的一个想法未能实现,请大家帮忙
- 高手帮忙:多线程查询和修改数据库如何做???
- 控件NMHTTP的用法
- 图片问题
- 难道没有人做过SQL SERVER2000 中文全文检索?
- 哪里有delphi消息处理机制的资料下载?
- 问题,急
- 本人新建delphi交流群,诚邀各位同行加盟,群号:26929954
- Delphi7下怎么用Socket??
var f:textfile;
cc:integer;
filename:string;
begin
adotable1.Open;
filename:=ExtractFilePath(Application.ExeName)+'logs\'+datetostr(date)+'.txt';
//showmessage(ExtractFilePath(Application.ExeName));
assignFile(f,filename);
rewrite(f);
//adotable1.field
with adotable1 do
begin
disablecontrols;
first;
while not eof do
begin
for cc:=0 to fieldcount-1 do
write(f,fields[cc].asstring);
next;
end;
writeln(f,'');
first;
enablecontrols;
end;
closefile(f);
end;
首先历遍sql查询出来的数据,然后将数据存入tStringList中,最后savetofile('c:\sql.txt')