[marcoszorrilla]

A modo de ejemplo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
Var
nCompteur:Integer;
begin
  With Adotable1 do
  begin
    for nCompteur:=0 to fields.count -1 do
    begin
     Case fields[nCompteur].DataType of
     ftWideString:ShowMessage('WideString');
     ftDateTime:ShowMessage('Fecha');
     ftinteger:ShowMessage('Entero.');
     ftFloat:ShowMessage('Coma flotante.');
     end;
    end;
  end;
end;

Un Saludo.