Hola a todos,
Tengo la siguiente dificultad al correr el siguiente procedimiento la aplicación me muestra un error de 'Access Violation at address 005B91C9 in module 'XXXXX.exe'. Read of address 00002F0'.
Código:
procedure TFrmProductoEmpaque.DBEcicloKeyPress(Sender: TObject;
var Key: Char);
begin
if key=#13 then
begin
Key := #0;
cicloactual:=DBEciclo.Text;
if cicloinicial<>cicloactual then
begin
swciclo:='1';
if swciclo='1' then
begin
Dmsip.Tblproductos['fechaciclop']:=now;
Dmsip.TblProductos['usuariociclop'] := userw;
end;
swciclo:='0';
end;
perform(wm_nextdlgctl,0,0);
DmSip.Tblproductos.edit;
DBEFechaCiclo.text:=datetimetostr(now);
DBEUsuarioCiclo.Text:=userw;
DmSip.TblProductos.post;
end;
end;
El cambio en el campo ciclo se realiza pero la aplicación se me bloquea y no puedo cambiar de registro.
Espero haberme hecho entender y sobre todo que me puedan ayudar.
Gracias