Obtener estructura de Tablas Paradox

[[Lepe]]

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; // case;

Para los indices tienes que acceder a IndexDefs de igual forma que con FieldsDef.... más o menos

Saludos