function GetTableVersion(Table: TTable): Longint;
var
hCursor: hDBICur;
DT: TBLFullDesc;
begin
Check(DbiOpenTableList(Table.DBHandle, True, False,
PChar(Table.TableName), hCursor));
Check(DbiGetNextRecord(hCursor, dbiNOLOCK, @DT, nil));
Result := DT.tblExt.iRestrVersion;
Check(DbiCloseCursor(hCursor));
end;
|
