¿te servirar en un archiuvo csv?
Ojalá te sirva... el parametro final puedes pasarlo en blanco, sirve para agregar un resumen....
salida es un componente TSaveDialog.
Procedure TFrm_main.Exportar_Excel(XDataset:TSimpleDataSet;Final:String);
var i:Integer;
salida:TextFile;
begin
if guardar.Execute then
Begin
assignFile(salida,guardar.FileName);
Rewrite(Salida);
with XDataset do
Begin
DisableControls;
First;
for i:=0 to Fieldcount-1 do
Begin
write(salida,fields[i].fieldName+';');
end;
Writeln(Salida);
while not eof do
Begin
for i:=0 to Fieldcount-1 do
Begin
write(salida,fields[i].asstring+';');
end;
writeln(salida);
next;
end;
EnableControls;
end;
writeln(salida);
writeln(salida,Final);
CloseFile(salida);
end;
end;
Saludos
|