Fórum COMO GERAR no arquivo texto em linha sequencial os registro #205295

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;