Valeu pela dica.....
Resolveu meu problema
Obrigado.
--- Em delphi-br@yahoogrupos.com.br, fabio giro <[EMAIL PROTECTED]> escreveu
>
> Este exemplo imprime um arquivo. Dê uma estudada no evento OnNeedData.
>
> uses Unit1;
> {$R *.DFM}
> procedure TForm2.QuickRep1NeedData(Sender: TObject; var MoreData:
Boolean);
> begin
> {-o OnNeedData, é executado da seguinte forma:
> na hora de gerar o corpo do relatório ele é chamado, e lá vc altera o
> valor dos seus campos (ex.: QrLabel) para o valor que vc quiser, e ele
> vai ficar sendo chamado repetidas vezes (em cada execução, uma linha
> do relatório é gerada) até que vc altere a variável MoreData para
> false.
> }
> moredata := false;
> if tem_dados then
> begin
> moredata := true;
> readln(form1.arq, form1.reg);
> qrlabel8.caption := form1.reg;
> if not eof(form1.arq) then
> tem_dados := true
> else
> tem_dados := false;
> end;
> {
> moredata := false;
> inc(j);
> if j <= form1.richedit1.lines.count - 1 then
> begin
> moredata := true;
> qrlabel8.caption := form1.richedit1.lines[j];
> end;
> }end;
>
> Espero ter ajudado.
>
> Luiz Fabiano Ribeiro <[EMAIL PROTECTED]> escreveu:
> Como imprimir vetores, stringlist, srtinggrids, variaveis,
etc...
> Qualquer coisa q nao seja banco de dados no quickreport, alguem sabe?
>
> Ex.:
> Vetor: array [1..100] of integer;
>
> quero fazer um loop nele e imprimir uma linha pra cada indice
>
> for i:=1 to 100 do
> Begin
> { no writeln(arq,vetor[i]); eu conseguiria colocando a linha aki, e
> no quiskreport?}
> end;
>
> Obrigado
>
>
>
>
>
> __________________________________________________
> Fale com seus amigos de graça com o novo Yahoo! Messenger
> http://br.messenger.yahoo.com/
>
> [As partes desta mensagem que não continham texto foram removidas]
>
