Hallo,
ganz einfach, wenn man den Header einer
Paradox-Tabelle kennt
.
procedure ResetAutoInc(Dateiname:string);
var myStream : TFileStream;
buffer : LongInt;
begin
buffer:=0;
mystream:=TFileStream.Create(Dateiname,fmOpenWrite + fmShareExclusive);
mystream.Seek(73,soFromBeginning);
mystream.WriteBuffer(buffer,4);
mystream.free;
end;
Ciao
Frank