procedure SaveToText(dataset:TDataset;FieldName:string;Showed:boolean=true); var F:TextFile; I,j:integer; exportsize:integer; TitleSize:integer; bookMark:TBook; begin assignFile(f,FieldName); rewrite(f); for i:=0 to dataset.FieldCount-1 do begin write(f,dataset.fields[i].displaylabel,''); write(f,char(#9),''); end; writeln(f); dataset.DisableControls; bookMark:=dataset.GetBook; dataset.First; for i:=0 to dataset.RecordCount-1 do begin for j:=0 to dataset.FieldCount-1 do begin write(f,dataset.fields[j].asstring,''); write(f,char(#9),''); end; dataset.Next; writeln(f); end; dataset.GotoBook(bookMark); dataset.FreeBook(book); dataset.EnableControls; writeln(f); closeFile(f); end;
var F:TextFile;
I,j:integer;
exportsize:integer;
TitleSize:integer;
bookMark:TBook;
begin
assignFile(f,FieldName);
rewrite(f);
for i:=0 to dataset.FieldCount-1 do
begin
write(f,dataset.fields[i].displaylabel,'');
write(f,char(#9),'');
end;
writeln(f);
dataset.DisableControls;
bookMark:=dataset.GetBook;
dataset.First;
for i:=0 to dataset.RecordCount-1 do
begin
for j:=0 to dataset.FieldCount-1 do
begin
write(f,dataset.fields[j].asstring,'');
write(f,char(#9),'');
end;
dataset.Next;
writeln(f);
end;
dataset.GotoBook(bookMark);
dataset.FreeBook(book);
dataset.EnableControls;
writeln(f);
closeFile(f);
end;
opendatasource()
TCustomADODataSet.SaveToFile
不行么?
你的方法 可以详细一些吗