Fórum DBGrid QuickReport = Dúvida #317713

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB;

type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    ADOQuery1CODIGO: TIntegerField;
    ADOQuery1NOME: TStringField;
    DBGrid1: TDBGrid;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  s: widestring;
begin

s:= ´´;

if DBGrid1.SelectedRows.Count>0 then
 with DBGrid1.DataSource.DataSet do
  for i:=0 to DBGrid1.SelectedRows.Count-1 do
   begin

    GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i]));
    if trim(s) = ´´ then
     s:=´ (codigo = ´+ADOQuery1.fieldbyname(´codigo´).asstring+´) ´
     else
      s:=s+´ or (codigo = ´+ADOQuery1.fieldbyname(´codigo´).asstring+´) ´;

   end;


ADOQuery1.Filtered:=false;
ADOQuery1.Filter:=s;
ADOQuery1.Filtered:=true;

end;

end.

procedure TForm1.Button1Click(Sender: TObject);
var f: textfile;
begin

table1.first;
assignfile(f, ´c:\qq_coisa.txt´);
rewrite(f);
while not table1.eof do
 begin
  // aqui vc monta o layout do seu TXT com o WriteLn
  writeln(f,table1.fieldbyname(´codigo´).asstring);

  table1.next;
 end;
closefile(f);

end;