Cita:
Empezado por ecfisa
Hola darkone2k4.
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
BM: TBookMarkStr;
i: Integer;
s: string;
ArchTexto: TextFile;
begin
AssignFile(ArchTexto,'C:\A_LA_DERECHA.TXT');
Rewrite(ArchTexto);
BM:= DBGrid1.DataSource.DataSet.Bookmark;
DBGrid1.DataSource.DataSet.DisableControls;
DBGrid1.DataSource.DataSet.First;
while not DBGrid1.DataSource.DataSet.Eof do
begin
s:= '';
for i:= 0 to DBGrid1.FieldCount - 1 do
begin
s:= s + StringOfChar(' ', DBGrid1.Fields[i].DisplayWidth -
Length(DBGrid1.Fields[i].AsString)) +
DBGrid1.Fields[i].AsString;
end;
Writeln(ArchTexto, s);
DBGrid1.DataSource.DataSet.Next;
end;
CloseFile(ArchTexto);
DBGrid1.DataSource.DataSet.Bookmark:= BM;
DBGrid1.DataSource.DataSet.EnableControls;
end;
Un saludo.
|
hola ecfisa!!
solo queria pedirte si podes mandarme un mensaje detallandome mas o menos que se hace con la rutina, osea se que es para exportar los datos del DBgrid a un archivo TXT pero si podes comentar las lineas de codigo puntuales, por ejemplo para que sirve el BOOKMARK, como hacer para que tambien se exporten los nombres de las columnas y que no este todo hacia la derecha, para saber como se maneja, asi no es solo copy-paste, sino saber como funciona.
desde ya muchas gracias!!
saludos