Busca por aqui:
Código Delphi [-]
var TipoDato:string;
begin
for j:= 0 to tabla.FieldDefs.Count-1 do
with tabla.FieldDefs.Items[j] do
begin
case DataType of
case DataType of
ftUnknown : TipoDato:= 'ftUnknown';
ftString : TipoDato:= 'ftString';
ftSmallint : TipoDato:= 'ftSmallint';
ftInteger : TipoDato:= 'ftInteger';
ftWord : TipoDato:= 'ftWord';
ftBoolean : TipoDato:= 'ftBoolean';
ftFloat : TipoDato:= 'ftFloat';
ftCurrency : TipoDato:= 'ftCurrency';
ftBCD : TipoDato:= 'ftBCD';
ftDate : TipoDato:= 'ftDate';
ftTime : TipoDato:= 'ftTime';
ftDateTime : TipoDato:= 'ftDateTime';
ftBytes : TipoDato:= 'ftBytes';
ftVarBytes : TipoDato:= 'ftVarBytes';
ftAutoInc : TipoDato:= 'ftAutoInc';
ftBlob : TipoDato:= 'ftBlob';
ftMemo : TipoDato:= 'ftMemo';
ftGraphic : TipoDato:= 'ftGraphic';
ftFmtMemo : TipoDato:= 'ftFmtMemo';
ftParadoxOle : TipoDato:= 'ftParadoxOle';
ftDBaseOle : TipoDato:= 'ftDBaseOle';
ftTypedBinary : TipoDato:= 'ftTypedBinary';
ftCursor : TipoDato:= 'ftCursor';
ftFixedChar : TipoDato:= 'ftFixedChar';
ftWideString : TipoDato:= 'ftWideString';
ftLargeint : TipoDato:= 'ftLargeint';
ftADT : TipoDato:= 'ftADT';
ftArray : TipoDato:= 'ftArray';
ftReference : TipoDato:= 'ftReference';
ftDataSet : TipoDato:= 'ftDataSet';
ftOraBlob : TipoDato:= 'ftOraBlob';
ftOraClob : TipoDato:= 'ftOraClob';
ftVariant : TipoDato:= 'ftVariant';
ftInterface : TipoDato:= 'ftInterface';
ftIDispatch : TipoDato:= 'ftIDispatch';
ftGuid : TipoDato:= 'ftGuid';
ftTimeStamp : TipoDato:= 'ftTimeStamp';
ftFMTBcd : TipoDato:= 'ftFMTBcd';
else TipoDato := ' No reconocido';
end;
Para los indices tienes que acceder a IndexDefs de igual forma que con FieldsDef.... más o menos
Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Última edición por Lepe fecha: 07-02-2007 a las 17:14:14.
|