RESPUESTA A LA PREGUNTA 3057 DE DELPHI


esta respuesta es para la persona que formula como el 
resultado de un query grabarlo a un archivo texto.
espero que esta respuesta te sirva.

unit ejemplo;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, 
Controls, Forms, Dialogs,
  Buttons, Grids, DBGrids, Db, DBTables;

type
  TForm1 = class(TForm)
    Query1: TQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    SpeedButton1: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  Linea : String;
begin
  { Creo en C: un archivo de texto llamado Prueba.txt y
    lo abro de escritura }
  AssignFile(Output, 'C:\PRUEBA.TXT');
  Rewrite(Output);
  { Leer el query como si fuera una tabla 
    secuencialmente }
  with Query1 do begin
    First;
    while not Eof do begin
      { Asigno a linea los valores que deseo grabar en 
        el archivo de salida *.txt }
      Linea := 
Format('%10s',[FieldByName('id_llamada').Value]) + ' ' +
               
Format('%30s',[FieldByName('Cliente').Value])    + ' ' +
               
Format('%03s',[FieldByName('id_estado').Value])        ;
      { Escribo la linea y realizo un salto de carro, es 
decir un enter }
      Writeln(Linea);
      { Leo el siguiente registro del query }
      Next;
    end;
  end;
  { Cierro el archivo de texto }
  CloseFile(Output);
end;

end.


lallendes@uol.cl