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"
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]

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.