Fórum gerar txt duma consulta e levar os nomes dos campos. #215493

var Campo: TStrings;
(...)
Campo := TStringList.Create;
Query1.GetFieldNames(Campo);
{use a partir dai Campo[0], Campo[1] }

 for i := 0 to Cols.Count -1 do

  sLinha := ´´;
  For iCont := 0 To Query.FieldCount-1 do
  begin
     sLinha := sLinha+Query.Fields[iCont].FieldName+´|´;
  end;
  // Grava Linha contendo o nome dos Campos de seu arquivo 
  While not Query.EOF do
  begin
    sLinha := ´´;
    For iCont := 0 To Query.FieldCount-1 do
    begin
       sLinha := sLinha+Query.Fields[iCont].asString+´|´;
    end;
    // Grava Linha contendo o Registro do Seu arquivo 
    Query.Next;
  end;