Como Gerar Arquivo TXT

Delphi

14/06/2004

Como gerar arquivo TXT de um banco de dado contendo a mesma informação no arquivo


Marcelo Souza

Marcelo Souza

Curtidas 0

Respostas

Lucas Silva

Lucas Silva

14/06/2004

Segue abaixo o código.
Qualquer dúvida pode me dar o toque.


procedure TForm1.Button1Click(Sender: TObject);
var Lista: TStringList;
begin
  Lista := TStringList.Create;
  with Query1 do
   begin
     Close;
     Sql.Clear;
     Sql.Add(´select * from tabela´);
     Open;

     while not eof do
      begin
        Lista.Add(Fields[0].AsString +´ - ´+Fields[1].AsString+´ - ´+Fields[2].AsString)
        Next;
      end;
   end;
   Lista.SaveToFile(´C:\teste.txt´);
end;



GOSTEI 0
POSTAR