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]
