[[Lepe]]

Empezado por cuscus

gracias a los 2

lo de las tablas de sistema, quisiera tirar por ahi,

¿Por qué? ¿No resulta acaso más cómodo tirar de delphi?:

Código Delphi [-]
var DAtaset : TQuery;
begin
 Dataset.sql.text := 'select * from tabla where codigo = 1'; // solo necesitamos un registro.
Dataset.Open;
Dataset.FieldsDef.Update;
with Dataset.FieldsDef.item[i] do
begin
             case DataType of
              ftUnknown      : TipoDato:= 'ftUnknown';
              ftString       : TipoDato:= 'ftString';
              ftSmallint     : TipoDato:= 'ftSmallint';
              ftInteger      : TipoDato:= 'ftInteger';
              ftWord        : TipoDato:= 'ftWord';
              ftBoolean      : TipoDato:= 'ftBoolean';
             end;
     tipodato := FieldName + ' 'TipoDato; 
end;

Más o menos.

Saludos