Получить версию таблицы

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Оформил: DeeCo

Автор: http://www.swissdelphicenter.ch

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;

{/codecitation}

Добавить комментарий