Array
(
    [0] => stdClass Object
        (
            [Votos_Balanceados] => -1
            [id] => 307152
            [titulo] => Listar todos os campos de uma tabela!
            [dataCadastro] => DateTime Object
                (
                    [date] => 2005-12-30 00:00:00
                    [timezone_type] => 3
                    [timezone] => America/Sao_Paulo
                )

            [isFirstPost] => -1
            [idUsuario] => 239671
            [status] => A
            [isExample] => 
            [NomeUsuario] => eixox
            [Login] => forum.eixox
            [Apelido] => 
            [Foto] => 
            [Conteudo] => Bíblia do Delphi do Marco Cantú, na parte de banco de dados ele mostra como pegar a estrutura de uma tabela.


) )

Listar todos os campos de uma tabela!

Andrew
   - 30 dez 2005

Galera boa, como eu faço o algoritimo para listar todos os campos de uma tabela, vejam só o q eu preciso fazer.

Preciso exportar os dados de uma tabela para Txt, só q não tenho a estrutura da tabela pois pode ser qualquer uma, tipo eu indico a localização da tabela e ela é carregada pelo sistema para um componente TTable em tempo de execução, daí preciso pegar os campos e gerar o TXT, alguma idéia?

Valew!!!


Eixox
   - 30 dez 2005

Bíblia do Delphi do Marco Cantú, na parte de banco de dados ele mostra como pegar a estrutura de uma tabela.


Fsflorencio
   - 30 dez 2005

veja um exemplo de como se obter o nome e o tipo dos campos.

var i : integer;
campos : string;
begin
campos := ´´;

for i := 0 to table.FieldList.Count -1 do
begin
case table.FieldList.Fields[i].DataType of
ftString : campos := campos + ´|A:´;
ftSmallint, ftInteger, ftWord : campos := campos + ´|I:´;
ftBoolean: campos := campos + ´|B:´;
//... e vai por aí a fora ...
end;

campos := campos + table.FieldList.Names[i];
end

showmessage( campos );
end;

//veja a lista de tipos. tem no help do delphi
type TFieldType = (ftUnknown, ftString, ftSmallint, ftInteger, ftWord, ftBoolean, ftFloat, ftCurrency, ftBCD, ftDate, ftTime, ftDateTime, ftBytes, ftVarBytes, ftAutoInc, ftBlob, ftMemo, ftGraphic, ftFmtMemo, ftParadoxOle, ftDBaseOle, ftTypedBinary, ftCursor, ftFixedChar, ftWideString, ftLargeint, ftADT, ftArray, ftReference, ftDataSet, ftOraBlob, ftOraClob, ftVariant, ftInterface, ftIDispatch, ftGuid, ftTimeStamp, ftFMTBcd);


Martins
   - 30 dez 2005

Assim vc joga o nome dos campos em um TMemo

#Código


Memo1.Lines.Assign(Table1.FieldList);