Cita:
Empezado por YaninaGenia
Quise decir donde pongo ese código para que en la exportación figuren los nombres de las columnas
Yanina
|
Te muestro una modificación del código de Federico para que muestre los nombres de los campos al principio del fichero
Código Delphi
[-]
procedure DataSetToStream(ADataSet: TDataSet; AStream: TStream);
var
I: integer;
S: string;
begin
with ADataSet do
begin
S := '';
for I := 0 to Pred(FieldCount) do
begin
if I > 0 then S := S + #9;
S := S + Fields[i].DisplayLabel;
end;
S := S + #13#10;
AStream.Write(S[1], Length(S));
Open;
while not Eof do
begin
S := '';
for I := 0 to Pred(FieldCount) do
begin
if I > 0 then S := S + #9;
S := S + Fields[i].DisplayText;
end;
S := S + #13#10;
AStream.Write(S[1], Length(S));
Next;
end;
end;
end;
procedure DataSetToFile(ADataSet: TDataSet; AFileName: string);
var
Stream: TStream;
begin
Screen.Cursor := crHourglass;
try
Stream := TFileStream.Create(AFileName, fmCreate);
try
DataSetToStream(ADataSet, Stream);
finally
Stream.Free;
end;
finally
Screen.Cursor := crDefault;
end;
end;
Un saludo