Reading the autoincrement value of Paradox table

Материал из DRKB

Reading the autoincrement value of Paradox table[править | править код]

The current highest value is stored beginning at byte 73 decimal. The next value is determined by adding 1 to it.

Here is a simple Delphi function that returns the current autoincrement value.

function getAutoInc(filename: string): LongInt;
var
  mystream: tfilestream;
  buffer: longint;
begin
  mystream := tfilestream.create(filename,
    fmOpenread + fmShareDenyNone);
  mystream.Seek(73, soFromBeginning);
  mystream.readbuffer(buffer, 4);
  mystream.Free;
  getAutoInc := buffer;
end;


Language: en
ID: 02944