Buscar por:

Zerando campo autoincremento:

Código

{Quanto trabalhamos com tabelas Paradox e apagamos o seus registros, o contador do campo AutoIncremento não é zerado, criando muitas vezes um grande inconveniente. Para resolver esse problema, use a seguinte função: } function ResetAutoInc(FileName: TFileName; Base: Longint): Boolean; 

begin 

  with TFileStream.Create(FileName, fmOpenReadWrite) do 

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

end;

{O parâmetro FileName é o nome da tabela, incluindo o caminho. E o parâmetro Base é o valor inicial para o contador do AutoIncremento. }