Exception extraña..

[lag_0]

Project Project1.exe raised exception class EAccesViolation with message 'Access violation at adress 0000004. Read of addres 0000004'. Process stopped. Use Step or Run To continue.

Toda la tarde y no se por que cojones me da esa excepction, perdon por la palabara pero es que estoy que no puedo más ... no tengo ni idea de exceptions i de debbugear a ver si alguien me ayuda un poco...
Me explico:
El programa es una calculadora que procesa unos numeros creados aleatoriamente y te calcula varios resultados, tiene muchos arrays, Tlist view que se llenan hasta 100000 o más, memos que tmb llenan eso... pero...
A veces cuando lleva más de 1000 numeros procesados me da except en el onmouse over de unas label que tengo que no tienen nada en onmouse over y borra la caption...
Otras veces al pasar de 10000 o así me da esa except y una y otra vez, vamos que no hay manera de seguir con el programa...

Estoy loco, no se que puede ser .
Son calculos muy muy simples.
Gracias por la ayuda...

[[maeyanes]]

El error que estás obteniendo es de acceso a memoria. Una de las causas más comunes de este error es tratar de usar un objeto que no ha sido creado o que ya fue destruido...

Ahora, si puedes poner algo de tu código tal vez se te puede ayudar de mejor forma...



Saludos...

[lag_0]

es que no se en que parte esta el error y hay mucho mucho codigo.. son 8 forms llenas de codigo con bucles y application procesmsg para poder interactuar entre ellas.. no sabria que pegar =(

Lo de objeto destruido no puede ser por que eneste proceso no se destruye nada y es totalmente aleatorio el momento que empieza el error ( oeso creo..) mas ideas? a ver si puedo pegar algo...

[[maeyanes]]

Coloca breakpoints (Tecla F5) donde sospeches que pueda estar el fallo y cuando la ejecución del programa llegue a uno de estos, ve haciendo un paso a paso (Tecla F7) hasta que te salga el error.

Entre las herramientas de depurado tienes la ventana Watch desde donde puedes agregar variables y ver que valores toman en determinado momento.

La verdad que aprender a depurar un programa es una de las tareas más importantes cuando se desarrolla una aplicación.


Saludos....

[lag_0]

voy a ello, gracias de nuevo =) nunca tube tantos problemas y por tanto no requerí aprender a debbugear cuando tenga algo cuento!

[lag_0]

No saco nada en claro realmente estoy perdido y desesperado.. incluso estoy planteandome volver a empezar la aplicación.. y no es una cosita pequeña .... Bueno... a ver si hay suerte =(

[roman]

También recomiendo que actives la opción Project|Options|Compiler|Use debug DCUs y hagas un Build del proyecto. Esto para que el debugger incluya las unidades de la vcl. Aunque seguramente el error no se genera ahí, posiblemente sí sea ahí, en la vcl, donde se muestra y eso te puede dar una idea del tipo de operación realizada para saber dónde buscar.

// Saludos

[lag_0]

Empezado por roman

También recomiendo que actives la opción Project|Options|Compiler|Use debug DCUs y hagas un Build del proyecto. Esto para que el debugger incluya las unidades de la vcl. Aunque seguramente el error no se genera ahí, posiblemente sí sea ahí, en la vcl, donde se muestra y eso te puede dar una idea del tipo de operación realizada para saber dónde buscar.

// Saludos

SIIIIIIIIIIIIIIIIIIIIIII señor XDDDDDDDDDDDDDd

Código Delphi [-]
procedure TWinControl.PaintControls(DC: HDC; First: TControl);
var
  I, Count, SaveIndex: Integer;
  FrameBrush: HBRUSH;
begin
  if DockSite and UseDockManager and (DockManager <> nil) then
    DockManager.PaintSite(DC);
  if FControls <> nil then
  begin
    I := 0;
    if First <> nil then
    begin
      I := FControls.IndexOf(First);
      if I < 0 then I := 0;
    end;
    Count := FControls.Count;
    while I < Count do
    begin
      with TControl(FControls[i]) do
        if (Visible or (csDesigning in ComponentState) and
          not (csNoDesignVisible in ControlStyle)) and
          RectVisible(DC, Rect(Left, Top, Left + Width, Top + Height)) then
        begin
          if csPaintCopy in Self.ControlState then
            Include(FControlState, csPaintCopy);
          SaveIndex := SaveDC(DC);
          MoveWindowOrg(DC, Left, Top);
          IntersectClipRect(DC, 0, 0, Width, Height);
          Perform(WM_PAINT, DC, 0);
          RestoreDC(DC, SaveIndex);
          Exclude(FControlState, csPaintCopy);
        end;
      Inc(I);
    end;
  end;
  if FWinControls <> nil then
    for I := 0 to FWinControls.Count - 1 do
      with TWinControl(FWinControls[i]) do
        if FCtl3D and (csFramed in ControlStyle) and
          (Visible or (csDesigning in ComponentState) and
          not (csNoDesignVisible in ControlStyle)) then
        begin
          FrameBrush := CreateSolidBrush(ColorToRGB(clBtnShadow));
          FrameRect(DC, Rect(Left - 1, Top - 1, Left + Width, Top + Height),
            FrameBrush);
          DeleteObject(FrameBrush);
          FrameBrush := CreateSolidBrush(ColorToRGB(clBtnHighlight));
          FrameRect(DC, Rect(Left, Top, Left + Width + 1, Top + Height + 1),
            FrameBrush);
          DeleteObject(FrameBrush);
        end;
end;

RestoreDC(DC, SaveIndex);

EN CONTROLS.DCU, gracias roman, por que puede seeeeeeeeeeeeer