Mensaje Invalid Pointer Operation

[quake2420]

Hola amigos tengo un problema a la hora de devolver un valor de una funcion.
La funcion que he creado es la siguiente, lo que hace es guardar en un array de Tipo imagen ciertas imagenes que estan en un directorio y sacar la maxima anchura de todas ellas, todo lo realiza bien menos cuando sale de la funcion VisgForm.MaxAnchura que me devuelve una valor cero y me sale el Error "Invalid Pointer Operation"

Código Delphi [-]
function TVisGForm.MaxAnchura;
 
 Function MayorElemento(anchura:array of integer;numdiapos:integer):Integer;
 var
 i,anchuramx:integer;
 begin
       anchuramx:=anchura[1];
       showmessage('valor de anchuramx:');
       showmessage(IntToStr(anchuramx));
       for i:=1 to (numdiapos-1) do
       begin
           if (anchuramx <= anchura[i]) then
           begin
                 anchuramx:=anchura[i];
                 showmessage('valor de anchura en la funcion: ');
                 showmessage(IntToStr(anchuramx));
           end;
       end;
 
 Result:=anchuramx;
 end;
 var
 i:Integer;
 anchura:array of integer;
 directorio:string;
 imagenes:array of TJPEGImage;
 numdiapos,anchuraux:integer;
 encontrado:boolean;
 Begin
         directorio:=rutafichA + 'imgs\';
         if  DirectoryExists(directorio) then
         //Comprobacion de si existe el directorio imgs
         begin
            showmessage('Existe el directorio imgs');
            i:=1;
            encontrado:=false;
            while (not (encontrado)) do
            begin
                 //Caso de que exista el directorio imgs comprobamos si dentro del
                 //directorio imgs hay imagenes guardadas
                 if    FileExists(PChar(directorio + 'tmp' + IntToStr(i) + '.jpg')) then
                 begin
                      showmessage('Existe el fichero tmp');
                      i:=i+1;
                 end
                 else
                    encontrado:=true;
            end;
         //Guardamos el numero de imagenes encontradas
         numdiapos:=i-1;
         end;
         Setlength(imagenes,numdiapos);
         Setlength(anchura,numdiapos);
         for i:=1 to numdiapos do
         begin
                 imagenes[i]:= TJPEGImage.Create;
                 imagenes[i].LoadFromFile(directorio + 'tmp' + IntToStr(i) + '.jpg');
                 anchura[i]:=imagenes[i].Width;
         end;
 anchuraux:=MayorElemento(anchura,numdiapos);
 showmessage('valor de anchura cuando sale de la funcion');
 showmessage(IntToStr(anchuraux));
 Result:=anchuraux;

[[Lepe]]

Empezado por Al menos en delphi 6

Returns the largest signed value in an integer array.

Unit

Math

Category

Statistical routines

function MaxIntValue(const Data: array of Integer): Integer;

Description

Call MaxIntValue to obtain the largest integer from the Data array.

SetLength crea posiciones para una tabla basándose en el índice cero, tú accedes al 1 en las rutinas.

Para olvidarte de ese problema, usa las funciones High(anchura) y Low(anchura)

Otro detalle, es que si no existe la carpeta imgs, sabe dios que valor tiene 'i' y si tiene el valor cero, SetLegnth(imagenes, -1) dará error.

La variable "encontrado" .... yo más bien le llamaría "Salir"

Espero que aceptes estos comentario de buen grado.


Un saludo

[quake2420]

Muchas gracias Lepe me has salvado la vida, ya no sabia como solucionar el problema.
Muchas gracias a toda la gente del foro.