Delphi Paradox7 Tabelle zurücksetzen

Thema durchsuchen

Ansicht

Themen-Optionen

Paradox7 Tabelle zurücksetzen

Ein Thema von scuby · begonnen am 4. Apr 2008 · letzter Beitrag vom 7. Apr 2008

Antwort

FrankJ28

Registriert seit: 7. Apr 2008
211 Beiträge

Delphi 11 Alexandria

Re: Paradox7 Tabelle zurücksetzen

7. Apr 2008, 19:12

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

"Sage was du tust, und tue was du sagst"
Johannes Rau