Delphi - база знаний

Reading the autoincrement value of Paradox table


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;



Содержание раздела