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