Cita:
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