Paradox - resetar campo autoinc

Top  Previous  Next

Function ResetAutoInc(FileName : TFileName; Base : LongInt) : Boolean;

Begin

   With TFileStream.Create(FileName, fmOpenReadWrite) do

      Result := (Seek($49, soFromBeginning) = $49And (Write(Base, 4) = 4);

End;

 

Exemplo:

 

   ResetAutoInc(Tabela, 0);

Tabela:=Nome da Tabela e o 0 é o numero em que vc quer iniciar!