Error AccessViolation que no consigo localizar

[[coso]]

Otra manera es usando un administrador de memoria y ir haciendo f7s,f8s...en los momentos en los que se te carguen bloques de memoria exagerados y alla se queden, por alla tendrias el problema (siempre suponiendo q el error sea por agotamiento de memoria, claro)

[radge]

Como variable global creo esta "CodiClient" que es una variable que arrastro de un combobox a distintos sitios dentro del mismo formulario.

Lo del auto-create forms solo tengo uno llamado "splash" lo que salta al inicio del programa , solo tengo ese.


El trozo este de codigo

Código Delphi [-] Application.CreateForm (TfrmUnidadesPedidoVenta, frmUnidadesPedidoVenta); frmUnidadesPedidoVenta.CarregaDades(Cantidad,UnitatsServidesBD); frmUnidadesPedidoVenta.ShowModal; varDades := frmUnidadesPedidoVenta.rebreDades; varUnitatsRestants := frmUnidadesPedidoVenta.rebreUnitatsRestants; frmUnidadesPedidoVenta.Free;

Código Delphi [-]
var
  frmUnidadesPedidoVenta: TfrmUnidadesPedidoVenta;
  unidades_restantes : integer ;
  FlagCheckSupervisado : string;
implementation

uses SupVision;

{$R *.DFM}

procedure TfrmUnidadesPedidoVenta.CarregaDades(var1,var2: integer);
begin
 UnitatsPedidoVenta := var1;
 UnitatsServidesBD := var2;
end;

function TfrmUnidadesPedidoVenta.rebreDades():String;
begin
  Result := edit1.Text;
end;

function TfrmUnidadesPedidoVenta.rebreUnitatsRestants(): string;
begin
   if (unidades_restantes = strtoint(edit1.text)) then
       FlagCheckSupervisado := 'S'
   else
       FlagCheckSupervisado := 'N';
   Result := FlagCheckSupervisado;
end;

procedure TfrmUnidadesPedidoVenta.ACTUALIZARClick(Sender: TObject);
begin

 if ( strtoint(edit1.text) = 0) then
        showmessage('No es posible añadir 0 unidades ')
 else if ( strtoint(edit1.text) > unidades_restantes) then
        showmessage('El número máximo permitido es ' + inttostr(unidades_restantes) + ' unidades ')
 else
         frmUnidadesPedidoVenta.Close;
end;

procedure TfrmUnidadesPedidoVenta.FormShow(Sender: TObject);
begin
  label3.Caption := inttostr(UnitatsPedidoVenta);
  label4.Caption := inttostr(UnitatsServidesBD);
  unidades_restantes := UnitatsPedidoVenta - UnitatsServidesBD;
  Label5.Caption := inttostr(unidades_restantes);
end;




procedure TfrmUnidadesPedidoVenta.edit1KeyPress(Sender: TObject;
  var Key: Char);
begin
  If Key = #13 then
  ACTUALIZAR.Click;
end;


end.

[[coso]]

pues quiza lo mas correcto sea q tengas en autocreate forms todas las forms que vas a usar en el proyecto. O es que las estas creando cada vez que las vas a llamar? si ese es el caso, una vez usadas y cerradas las forms, las destruyes?? porque ten en cuenta que si creas una form y luego vuelves a crearla y llamarla con el mismo nombre de variable sin haber destruido la anterior se queda esta ultima desreferenciada por memoria.

[radge]

Es una aplicación heredada... y el k la empezó no esta xD

Tiene más de 40 formularios y bastante densos.

Por lo que he visto normalmente se usa el formulario.... se crea y se destruye.
Por eso sigo con la misma tónica , lo creo hago sus cositas y al cerrar lo destruimos.

salu2 radge

[radge]

Lo que si que noto que contra más mano le meto.. mas veo de estos

Access violation at address 00000000. Read of Address 00000000

[[coso]]

Si no fueses un profesional te diria q me pasaras el codigo para echarle un vistazo pero asi X). Me da q va por alli, por lo de forms no liberadas y vueltas a referenciar con la misma variable...ya contaras algo, saludos

[[coso]]

Esos anteriores, claro esta son de objetos o bien liberados y reusados, o bien no creados. Si, como antes, estas liberando antes de usar cosas como el TBookMarkStr, que es una string, te saldran montones de ellos.

[radge]

Gracias eso del string ya lo arregle xD la verdad que llevo varios años programado pero acabo de empezar con delphi 5 en esta empresa y con un proyecto... grande que lleva varios años en desarrollo y no veas como pillo xD

gracias , radge