23 respuestas en este tema

[Sergio]

Hola a todos. He realizado un procedimiento para calcular el valor de la direcion promedio donde se encuentran los datos de mayor señal. Compila bien pero da error en la ejecución:

          " is not a integer valid value

Veo varios errores en tu código, pero faltría saber en qué línea te salta el error.

En la línea 16 pones  "for k := 1 to length(arrayprincipal) do" y a continuación usas la posicion k+1 y k+2... eso está mal... primero tu array termina en la posición lenght()-1 porque empieza en 0 y no en 1, y segundo, si vas a usar k+2, el for debe terminar dos posiciones antes, así que deberías poner "length(arrayprincipal)-3".

Este podría ser el problema, porque si lees en el array pasado el final, o te da un error o leeras textos vacios (según las opciones de compilación), y strtoint('') te daría justo el error que envías.

En la linea 52 se repite el problema.

Bueno, comprueba esto y si da error dinos en que línea exactamente.

[mosco]

Gracias Sergio y Cadetill. Ustedes son muy buenos en esto pero yo me quedo cortísimo.
He modificado el código siguiendo vuestras indicaciones pero ahora me salta otro fallo que me tiene encasquillado. Pongo solo la parte inicial del codigo anterior que he modificado y que esta provocando el error:

delphi

procedure  TForm1.ValorMaximo(orientacion:char);          //Funcion que halla el valor
var                                                       //medio de la direccion en
  i, k, s, n, p, valorEntero, tamanio, posicionMaximo:integer;  //donde la señal es mayor
  senialMayor, promedioMinimo, promedioMaximo: integer;    //Se puede llamar tanto para
  direccionMayor:array [1..8] of Char;                    //azimut como para elevacion
  direccionMenor:array [1..8] of Char;
  promedioMayorH:array [1..4] of Char;
  promedioMayorV:array [5..8] of Char;
  promedioMenorH:array [1..4] of Char;
  promedioMenorV:array [5..8] of Char;
  juntaOchoChar:string;
  cadenaIndividual:string;
  senial:string;
  begin
    senialMayor:= 0;
    valorEntero:=0;
    posicionMaximo:=0;
    for i:=1 to 8 do
      direccionMayor[i]:='0';                           //Inicializar , porque da error
    for i:=1 to 8 do
      direccionMenor[i]:='0';
    for k := 1 to length(arrayprincipal) do
      begin
        cadenaIndividual:=arrayprincipal[k];
          if cadenaIndividual[10] = ')' then
            begin
              senial[1]:=cadenaIndividual[11];
              senial[2]:=cadenaIndividual[12];
              valorEntero:= strtoint(senial[1]+senial[2]);
                if valorEntero > senialMayor then
                  begin
                    senialMayor:= valorEntero;
                    tamanio:= 1;
                    posicionMaximo:= k;
                    for s:=2 to 9 do
                      begin
                        direccionMayor[tamanio]:=cadenaIndividual[s];
                        tamanio:= tamanio + 1;
                      end;
                  end;
            end;
      end;

La pantalla de error pone lo siguiente:

Acces violation at address 0045AAEE4 in module "programa.exe". Read of address 00000009.

Saludos

PD:  Las variables globales del Form tengo:

delphi

arrayprincipal: array[1..500] of string;
  direccionPromedio:array[1..8] of Char;

[cadetill]

Te repito lo mismo que te dije en mi anterior mensaje. Pon un breakpoint (F5 cuando tengas el cursor en la linea) en la 1era línea del procedure y ejecuta paso a paso (F7 o F8) para ver dónde salta el error. Un AV suele ser porque haces una referencia a un objeto que ya ha sido destruido o simplemente que nunca fue creado.

Cuando encuentres la linea con el error, quizás tú mismo des con la solución :-) Sino, dinos qué linea es y vemos por qué salta el AV

Saludos

[Sergio]

Das muchas cosas por supuestas en tu código, y una no es cierta ¿cual? pues vete a saber, muchos arrays no aparecen en el código, pero deberías leer sobre como hacer "debug" en delphi, para pasar el programa pasito a pasito y ver donde da el error y esas cosas.

Por ejempo, en esta línea " if cadenaIndividual[10] = ')' then" das por supuesto que esa cadena mide 11 (las cadenas suelen empezar por el caracter 0), y claro, puede que si, puede que no... más adelante usas la posicion 11 y 12... eso no puedes darlo por supuesto, deberias asegurarte de que es así antes de nada, y de paso "avisarte" si algo falla:

delphi

if (Length(cadenaindividual) < 13) then
  ShowMessage('Problemas con cadena individual demasiado corta: "'+cadenaindividual+'"');
end else if cadenaIndividual[10] = ')' then
 
...aqui el resto de tu código...
 
end;

Ya sabes, la suposición es la madre de todas las pifias!

Otro punto donde supones cosas: "valorEntero:= strtoint(senial[1]+senial[2]);" esto puede darte error si no hay digitos en esos valores. Puedes asegurarte de que son digitos o bien usar un try/except:

delphi

try
  valorEntero:= strtoint(senial[1]+senial[2]);
except
  on e: exception do 
    ShowMessage('Error con strtoint(senal1+2). El error es: '+E.message);
end;

La otra opción es comprobarlo, yo usaría una funcion que detecte dígitios como esta:

delphi

function EsDigito(v: char): boolean;
begin
  result:= (Pos(v, '0123456789') > 0);
end;
 
if EsDigito(senial[1]) and EsDigito(senial[2]) then

Vamos, que programar "a prueba de bombas" requiere un esfuerzo algo mayor que solo "programar" pero trae cuenta hacerlo bien.