FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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; |
|
|
|