各位大虾帮帮忙,字段得从DBGrid里取
解决方案 »
- 关于在Form中如何关闭多个嵌套的tabsheet的问题
- 100分求解
- 请问写进销存软件、财务软件或ERP,除了编程技术之外,还应该补充哪些业务知识?
- 用type libraray 工具添加的属性(或方法)如何实现呢?
- 怎样读ini文件的布尔型
- 想必我们有生之年可以确信有外星人的存在! 我意淫下不可吗?
- 江湖救急 DateTimePicker 下拉选择时,只显示月份,不显示日期
- 到底该怎么去学delphi
- snccurrency的控件哪儿有得下(100分的小问题)
- 各位,请不要怪我乱发贴,我只是做一个民意调查:有多少人是包月上网的,请进来up一下?(我就是包月上网的120RMB/M,现在我不知道合不合算)????
- 关于如何取dbgrid字段的问题----
- TidHTTP控件一个奇怪问题,高手帮我
procedure TForm1.Button1Click(Sender: TObject);
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;
好象不能用你的方法吧
http://www.anylib.com