Как узнать версию таблицы

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