COMO GERAR no arquivo texto em linha sequencial os registro

Delphi

09/01/2004

olá pessoal, tenho dados abaixo:

tabela pedido.dbf
PEDIDO |COD_CLI|VALOR |
0001204 |000128 | 140,00|
0001206 |001274 |950,00 |

preciso capturar estes dados e escrever em um PEDIDO.TXT em linha sequencial.


Se puderem me passar exemplos e comentarios agradeço

Obrigado


Infohelp

Infohelp

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

09/01/2004

Colega,

Precisa de algum delimitador entre os campos ou posicionamento exato para cada campo?


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

09/01/2004

Colega,

Exemplo com uso de delimitador:

procedure TForm1.Button1Click(Sender: TObject);
var Arquivo: TStringList;
    Linha: String;
    nI: Integer;
begin

  Arquivo := TStringList.Create;

  ibQuery1.First;

  while not ibQuery1.Eof do
  begin

    Linha := ´´;

    for nI := 0 to ibQuery1.FieldCount-1 do
      Linha := Linha + ibQuery1.Fields[nI].AsString+´;´;

    Arquivo.Add( Linha );
    ibQuery1.Next;
  end;

  Arquivo.SaveToFile(´c:\geração\pedido.txt´);
  Arquivo.Free;

end;



GOSTEI 0
POSTAR