Как узнать версию таблицы |
Previous Top Next |
Code: |
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; |
©Drkb::02609
Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php