siguen los problemas con el campo auto incremento
gracias pero tengo un problema con lo del auto incremento me mas¿rca un error en :setautoinc
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;
|