Table - obter a versao

Top  Previous  Next

//...get the table version ?

 

function GetVersionTabla(table: TTable): LongInt;

var

  hCursor : hDBICur;

  DatosTabla: TBLFullDesc;

begin

  Check(DbiOpenTableList(table.DBHandle, True, False,

  PChar(Table.TableName), hCursor));

  Check(DbiGetNextRecord(hCursor, dbiNOLOCK, @DatosTabla, nil));

  Result := DatosTabla.tblExt.iRestrVersion;

  Check(DbiCloseCursor(hCursor));

end;