gerar txt duma consulta e levar os nomes dos campos.

Delphi

19/02/2004

Fala Galera!
Eu já procurei isso na busca, mas ainda não a encontreo no jeito q eu keria...
Eu preciso gerar um txt de uma consulta sql, mas o txt tem q ter os nomes dos campos.
Ex:
O txt tem q ficar assim:
NOME|IDADE
Henrique Bueno|19
NUM SEI KEM|24

a unica coisa q eu não sei fazer é colocar o nome do campo no txt...


Por favor, alguém me ajude!!!!!!
Já está se esgotando o prazo pra eu entregar esse programa...


Bueno

Bueno

Curtidas 0

Respostas

Paulo_amorim

Paulo_amorim

19/02/2004

Olá

o TQuery tem o metodo GetFieldNames(TStrings)
vc pode por em uma variavel e usa-la

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


mas isso nao eh necessario pois tambem tem uma propriedade que jah eh um TStrings...mas nao me lembro qual eh :(
creio que seja Query1.Fields.FieldName[{numero da coluna}]

para colocar um por um, faça um
 for i := 0 to Cols.Count -1 do


Espero que ajude, me desculpe por nao lembrar de tudo!

Até+


GOSTEI 0
Bolus

Bolus

19/02/2004

Caro Colega,
Poderá colocar assim:

  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;


Desta maneira você resolve o seu problema.......

Espero ter ajuda....


GOSTEI 0
POSTAR