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;
