Gerando relatório txt

Delphi

30/03/2015

Olá, estou começando a trabalhar com arquivos de texto com o delphi, porem não estou conseguindo fazer o que realmente preciso. Veja meu código abaixo:

procedure TfEstoque.RelatriotxtdosItens1Click(Sender: TObject);
var arq: TextFile;
linha: String;
begin
AssignFile ( arq, 'C:\Relatório.txt' );
Rewrite ( arq );
ClientDataSet_estoque.First;
while not ClientDataSet_estoque.Eof do
  begin
   write(arq,'Produto: ');
   WriteLn ( arq, AjustaStr (ClientDataSet_estoque.FieldByName ( 'DESCRICAO' ).AsString,40)+
   'Quantidade: '+(ClientDataSet_estoque.FieldByName('QUANTI_ESTOQUE').AsString));
   write(arq,'------------------------------------------------------------------------------');
    WriteLn ( arq );
    ClientDataSet_estoque.Next;
end;
CloseFile ( arq );
end;


.. Porem, esta gerando o relatório desta forma:

Produto: Coca cola 2 litros Quantidade: 50
------------------------------------------------------------------------------
Produto: refrigerante Quantidade: 21
------------------------------------------------------------------------------
Produto: pepsi 2 Lt Quantidade: 2
------------------------------------------------------------------------------
Produto: celular Lg g2 Quantidade: 50
------------------------------------------------------------------------------

Minha duvida mesmo é como colocar o (Titulo da coluna) como no exemplo abaixo, pois tentei de algumas formas e não tive exito. Eu preciso gerar um relatório parecido com este abaixo, alguém poderia me orientar?

- CONTROLE DE ESTOQUE

Códig Descrição Preço em $
----- --------------------------------------------- ----------
00001 Coca Cola Lata 350 ml 0,05
00002 Guaraná Antarctica Lata 350 ml 2,00
00003 Fanta Uva Lata 350 ml 0,05
00004 Fanta Laranja Lata 350 ml 0,05
00005 Sprite Lata 350 ml 0,05
----- --------------------------------------------- ----------

Número de registros: 5.
30 de Março de 2015 às 08:46:22
Jhon

Jhon

Curtidas 0

Melhor post

Thiago Santana

Thiago Santana

30/03/2015

Nilegor, seu título deverá estar fora do While e o total você poderá gravar em uma variável e escrever no arquivo após o fim do While!
GOSTEI 1

Mais Respostas

Jhon

Jhon

30/03/2015

Muito obrigado Thiago, consegui perfeitamente colocar o titulo e colocar a variável para contar os registros.
GOSTEI 0
Thiago Santana

Thiago Santana

30/03/2015

Show! :)
GOSTEI 0
POSTAR