procedure GetdBaseFieldTypes(t: TTable; var l: TStringList);
var
 pF: pFLDDesc;
 cProps: CURProps;
 p: pFLDDesc;
 i: Byte;
 w: Word;
 s: string;
 oldmode: LongInt;
begin
 Check(DbiGetCursorProps(t.Handle, cProps));
 Check(DbiGetProp(hDBIObj(t.Handle), curXLTMODE, oldmode, SizeOf(LongInt), w));
 Check(DbiSetProp(hDBIObj(t.Handle), curXLTMODE, LongInt(xltNONE)));
 try
 if MaxAvail < (cProps.iFields * SizeOf(FLDDesc)) then
 raise EOutofMemory.Create('Недостаточно памяти для процесса');
 GetMem(pF, (cProps.iFields * SizeOf(FLDDesc)));
 Check(DbiGetFieldDescs(t.Handle, pF));
 p := pF;
 for i := 1 to cProps.iFields do
 begin
 with p^ do
 begin
 s := IntToStr(iFldNum) + ' : ' + StrPas(szName) + ' : ';
 case iFldType of
 fldDBCHAR:
 begin { Char string, строка символов }
 s := s + 'CHARACTER(' + IntToStr(iUnits1) + ')';
 end;
 fldDBNUM:
 begin { Number, число }
 s := s + 'NUMBER(' + IntToStr(iUnits1) + ',' + InttoStr(iUnits2) +
 ')';
 end;
 fldDBMEMO:
 begin { Memo (blob), МEMO-BLOB-поле }
 s := s + 'MEMO';
 end;
 fldDBBOOL:
 begin { Logical, лочическая величина }
 s := s + 'LOGICAL';
 end;
 fldDBDATE:
 begin { Date, поле даты }
 s := s + 'DATE';
 end;
 fldDBFLOAT:
 begin { Float, числа с плавающей точкой }
 s := s + 'FLOAT(' + IntToStr(iUnits1) + ',' + InttoStr(iUnits2) +
 ')';
 end;
 fldDBLOCK:
 begin { Логический тип LOCKINFO }
 s := s + 'LOCKINFO';
 end;
 fldDBOLEBLOB:
 begin { OLE object (blob), OLE-объект, BLOB-поле }
 s := s + 'OLE';
 end;
 fldDBBINARY:
 begin { Binary data (blob), двоичные данные, BLOB-поле }
 s := s + 'BINARY';
 end;
 else
 s := s + 'НЕИЗВЕСТНО';
 end;
 end;
 l.Add(s);
 Inc(p);
 end;
 finally
 Check(DbiSetProp(hDBIObj(t.Handle), curXLTMODE, oldmode));
 FreeMem(pF, (cProps.iFields * SizeOf(FLDDesc)));
 end;
end;