Buenas prácticas de programación

[[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

[Neftali [Germán.Estévez]]

Al final no me ha quedado claro si el error te estás dando en la iteración(que sólo asigna randoms) o en la parte de la gráfica.

[[coso]]

Hola,

desde la ayuda de delphi

Open array parameters allow arrays of different sizes to be passed to the same procedure or function. To define a
....
When you pass an array as an open array value parameter, the compiler creates a local copy of the array within the routine’s stack frame. Be careful not to overflow the stack by passing large arrays.

probablemente llegaba un momento en el que tanto tu array como la copia petaban la pila.

Haciendo esto

Código Delphi [-]
type ExtArray = array of Extended;
...
procedure Graficar(e : ExtArray);
begin
//
end;
 
procedure Hacer;
var
     i : cardinal;
     e : ExtArray;
begin
     Randomize;
     SetLength(e, 200000);
     for i:=0 to 200000-1 do
         e[i] := GenerarRandomico;
     graficar(e);
     ShowMessage('Listo');
end;

funciona.

PD : alguien sabe como acceder al valor de un puntero a lo 'array', pues he probado

Código Delphi [-]
graficar(@arraygrande)
..
 
procedure Graficar (P : PExtended)
var   
      i : integer
begin
        for i := 0 to 200000-1 do
        label1.caption := Formatfloat('0.00',extended(p)[i]^;
end;

que tendria que ser la manera, y no

[[Lepe]]

¿sería posible comprimir los fuentes y subirlo al foro? (si solo es un un form, el dpr y el pas, puedes agregarlo al hilo).

Si asignas nil a un array, y después intentas acceder a él, es muy posible que salte esa excepción que dices, pero no es la única posiblidad...

Saludos