Fórum Como utilizo a funcao para zerar o campo auto-incremento #191472

[b:5b86be112a]Como utilizo a funcao para zerar o campo auto-incremento do Paradox??[/b:5b86be112a]


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.

Nao estou conseguindo usar...!!!

Obrigado pela atenção!!
Hugo Junior