Campo autoincremental

[tarco35]

tengo un campo de tipo "autoincrement" en un fichero db de paradox 7 con delphi 6... ¿como puedo poner ese campo a 0 para cuando instale el programa empiece desde ese valor?.... gracias

[marcoszorrilla]

O creas una tabla nueva, para cuando empiece a funcionar la aplicación, O utilizas este código:


procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.Close;

SetAutoInc('C:\Delphi\Prueba.db',StrtoInt(edit1.text));
Table1.Open;
end;

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;

Un Saludo.