empezar en 1 luego de un pack

[marcoszorrilla]

Yo utilizo está función y me va de perlas:

Código Delphi [-]
Procedure SetAutoInc(filename : string; Value : Longint);
var
mystream : tfilestream;
begin
mystream := tfilestream.create(filename,
            fmOpenWrite + fmShareExclusive);
  try
    mystream.Seek(73, soFromBeginning);
    mystream.Writebuffer(Value, SizeOf(Value));
  finally
    mystream.Free;
  end;
end;

Ejemplo de llamada:

Código Delphi [-]
('\\Facturacion\facturas\AniPdx\LinFacturas.db',0);

Con esta instrucción el próximo registro tendrá el número 1.

Un Saludo.