Buenas prácticas de programación

[[gatosoft]]

bueno amigo elcigarra,

Yo trabajé mucho tiempo con una plaicación cuya base eran los Arrays Dinámicos y tenia muchos problemas como los que tu planteas... Del tipo "Access Violation" o "Invalid Float Point Operation"... Estos errores se daban en lineas Fantasma... donde jamas podría generarse un error desde el punto de vista de la lógica...

Pase muchas horas depurando codigo y al final determiné que el error era cuando el sistema pasaba por un proceso específico, pues resultó ser que en dicho proceso el array se asignaba en una posición de memoria que no correspondía, por ejemplo si era un array de ocho posiciones (Contando desde cero), se estaban asignado valores a una posición 8,9 10 o superior....

Sucede que cuando trabajas con arrays dinámicos, el compilador no se queja (inmediatamente) cuando haces una asignación no válida, el error se presenta en otra linea mas adelante (Invalid Float Point Operation)...

Hice una revisión profucnda de todos los procesos y pude resolverlo, y cuando se volvia a presentar ya sabia que se trataba de esto...

Espero que te sirva....

[ContraVeneno]

Empezado por elcigarra

El tema es que no puedo usar el debugger ya que por la cantidad de veces que itera nunca logro ver donde ocurre

También podrías usar un conteo cuando agregues un punto de revisión.

Colocar el cursor sobre la línea que creas da el error. Luego en el menú "Run -> Add BreakPoint - > Source BreakPoint" en la parte del "Pass Count" puedes definir cuantas veces quieres que pase el cursor por ahí sin detenerse.

Puedes consultar la ayuda de Delphi sobre "BreakPoints" para tener más información sobre "Pass Count".

[elcigarra]

Estuve ausente unas horas y hay mucho que responder. Voy a tratar de explicar...

Uso el debugger y uso breakpoints pero como decía en este caso las lineas no tienen nada que ver... es decir, las lineas que detalle (el "FormatFloat" y la creación del StringList) me las cantò el debugger. El problema es que la mitad de las veces al saltar el error, la linea roja la marca en el "end" de la unidad principal, es decir después de "Application.run".

Con respecto a los break points, tampoco ayudan ya que los errores ocurren en la teración 125745, por ejemplo. El pseudocódigo es algo así...

Código Delphi [-]
Funcion gen_random: extended
begin
  Result = randómico con una distribución particular a partir de random.
end;
 
procedure grafica(vector: array of extended)
begin
  graficar ese array (que puede tener entre 500 y 2 millones de números)
end
 
procedure principal
begin
  SetLength(arraygrande, 2000000);
  for i:=0 to 2000000
    arraygrande[i] := gen_random
    graficar(arraygrande)
  end;

Como entenderán donde quiera que ponga el break point podría pasar cientos de miles de veces sin dar un error.

Pero además no es el error en una linea específica es en cualquier lado. Me suena más a un problema de memoria...

Maeyanes
Los StringList les hago un free, lo que asigno nil son los arrays de extendeds

[[Lepe]]

Yo me inclinaría por la opción de Neftali, pero haciendo un Build project, se debería parar justo en la linea que va a producir el error.

Si cabe lo más rápido de implementar es con cnPacks (si ya lo tienes instalado), por ejemplo, que permite escribir un Log de forma fácil, así puedes incluir el valor de las variables que quieras controlar. Este método es más rápido de entender e implementar.... 15 minutos como mucho, además el Pdf a modo de manual ayuda un poco .


Otro método (menos recomendado, pero al fin y al cabo trata de lo mismo) es con ayuda de la JVCL con el hilo debuguear en tiempo de ejecución ya que en cuanto salta la excepción, coge las llamadas que ha hecho en orden inverso. Sirve para identificar cuando se ha producido un fallo y todo lo que ha ejecutado anteriormente.

Otra cosa:

Código Delphi [-]
for i:=0 to 2000000 do

eso nunca, nuuuunca. Sustitúyelo por esto otro:

Código Delphi [-]
for I:= low(nombrearray) to high(nombrearray) do

Saludos

[elcigarra]

Empezado por Lepe

Sustitúyelo por esto otro:

for I:= low(nombrearray) to high(nombrearray) do

Si, si, lo cambio.
Aclaro "por si las moscas" que los errores no se deben a que me pasé del largo del array (aunque sí lo hago en el "pseudocódigo" simplificado que puse. Reconozco que cada tanto me como uno de estos pero no es el caso que pregunto en este hilo, porque además los errores no los dá al final, sino en cualquier lado.

[elcigarra]

Perdón, lo acabo de correr.
El error que me deja abajo del "Application.Run" es:
"Invalid Pointer Operation", nada de floating point.

Y ese error lo da después que hizo lo que tenía que hacer, vació las listas, array, barrió todo e iba a devolver el programa al usuario... a veces.

Una prueba más que hice...
Cada vez que empezaba la iteración me estaba dando un error de windows que decía algo así como "debugger fault" (debí haber anotado). Así que cerré el IDE y corrí el ejecutable pelado. Les cuento que estuvo 2 segundos paralizado y se cerró sin más.. sin aviso, ni error ni nada. A mi me suena a memoria... Hay algo que no debo estar liberando.

[[gatosoft]]

Bueno, yo hice el ejercicio básico, según lo indicado por nuestro amigo y cuando entra a la función de graficar me arroja un Stack Overflow... (Y eso que la función no tiene nada)

Código Delphi [-]
Var ArrayGrande: Array of Extended;

function GenerarRandomico: Extended;
Begin
  //Utilizo la famosa distribución.... randómica...
  Result:= Random(50000000);
end;

procedure graficar(vector: array of extended);
begin
//
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
Var i:Integer;
begin
  Randomize;
  SetLength(arraygrande, 2000000);

  for i:=Low(arraygrande) to High(ArrayGrande) do
    arraygrande[i] := GenerarRandomico;

  graficar(arraygrande);
  ShowMessage('Listo');
end;

hice una modificación quitando la variable que se pasa como parámetro y utilizando la global en el procedimiento graficar y aqui si funciona...

Código Delphi [-]
procedure graficar;
begin
  // aqui utilizo la variable global: arraygrande
end;

bueno, ni que decir, pude ejecutarlo sin problemas... Yo no creo que sea un problema de memoria, insisito, pienso que hay algo mas en tu codigo que genera este error... y como te comente anteriormente, no siempre se muestra la linea que origina el error sino la linea que detecta la violación...

Pienso que deberías intentar el "Metodo de Descartes", es decir ir descartando codigo comentandolo y ejecutandolo por partes.... por ejemplo... has el ejercicio solamente con la generación de los numeros (sin imprimirlos) si vuelve a fallar puedes decir que el algoritmo que grafica no tiene nada que ver...

Cambia la formula de generación de aleatorios, maneja una distribución sencilla (como la que yo utilizo Result:= random (100)) si sigue fallando, entonces sabras que el error tampoco está por ahi... en fin...

otra alternativa, si consideras que puede ser memoria sería ayudarte de una "memoria cache" o un Buffer para generar, almacenar y leer tus datos... me refiero a que puedes guardar los datos en un archivo o BD y no en memoria... Obviamente como ejercicio, no te pido que cambies la logica de tu codigo, es tambien solo para descartar...

un saludo