Ayuda con error list index out of bounds

[danielmj]

hola ñuño,

el error salta cuando se pulsa este boton..

Código Delphi [-]
procedure TForm1.Button4Click(Sender: TObject);
var
   i, j, p : Integer;
   ModaCount : Array[0..5] of Integer;
   AModa : Array[0..5] of TModa;
   b : Boolean;

begin

   // Cuenta cuantas ocurrencia hay de un número.
   // la posición del arreglo corresponde al número generado aleatoriamente
   // El valor del arreglo corresponde a la cantidad de ocurrencias encontradas para ese número.
   FillChar(ModaCount,Sizeof(ModaCount),0);
   for i := 0 to lista.Items.Count - 1 do
   begin
      for j := 0 to lista.Items.Item[i].SubItems.Count - 1 do
      begin
         p := StrToInt(lista.Items.Item[i].SubItems.Strings[j]);
         ModaCount[p] := ModaCount[p] + 1;
      end;
   end;

   // Genera un arreglo con los 6 primeros números en orden de repetición.
   FillChar(AModa,Sizeof(AModa),-1);
   for i := Low(AModa) to High(AModa) do
      for j := Low(ModaCount) to High(ModaCount) do
      begin
         if AModa[i].Count < ModaCount[j] then
         begin

            for p := 0 to 5 do
               if (AModa[p].Number = j) then
                  b := True;

            if not b then
            begin
               AModa[i].Number := j;
               AModa[i].Count := ModaCount[j];
            end;

            b := False;

         end;
      end;

   // Muestra los primeros números repetidos en secuencia hasta un máximo de 6
   for i:= 0 to 6 do
   begin
      if (AModa[i].Count <> 0) then
        ShowMessage(Format('El %s número es %d con %d ocurrencias',[Secuencia[i],AModa[i].Number,AModa[i].Count]));
   end;
end;

Un saludo.

[Casimiro Noteví]

Sigue paso a paso el código con el depurador y mira la línea que da error.

[roman]

Deberías ser más específico en cuanto a la localización del error. Sin embargo, en el código que escribes, el útimo ciclo seguramente te producirá el error de "Index out of bounds":

Código Delphi [-]
   // Muestra los primeros números repetidos en secuencia hasta un máximo de 6
   for i:= 0 to 6 do
   begin
      if (AModa[i].Count <> 0) then
        ShowMessage(Format('El %s número es %d con %d ocurrencias',[Secuencia[i],AModa[i].Number,AModa[i].Count]));
   end;

AModa va de 0 a 5 y tu ciclo va de 0 a 6.

LineComment Saludos

[danielmj]

Hola, escribió desde el móvil lo digo por si alguna palabra no se entiende..
Gracias por responder, lo del 0..6, el 6 lo puse por probar, pero el error ya me daba
Con 0..5
Hola casimiro, ahora mismo estoy en el curro, pero mañana miraré lo del depurador.
Gracias otra vez y un saludo.

[roman]

Empezado por danielmj

Hola, escribió desde el móvil lo digo por si alguna palabra no se entiende..
Gracias por responder, lo del 0..6, el 6 lo puse por probar, pero el error ya me daba
Con 0..5

Pues si haces una pregunta y pones un código, trata de que éste coincida con tu problema. Y sigues sin contestar en qué punto exactamente ocurre el error.

LineComment Saludos

[danielmj]

hola, ya esta solucionado, el problema es que no habia declarado los campos "max y rows" en el apartado de constantes. Estuve toqueteando y debí borrarlo.
El código que tiene relacion con el error y la pregunta en cuestion es este:

Código Delphi [-]
private
    { Private declarations }
  public
    { Public declarations }
  end;

  TModa = record
     Number : Integer;
     Count : Integer;
  end;

  THilo = class( TThread )
    Ejecutar: procedure of object;
    procedure Execute; override;
  end;

const
  {Max = 50; // Número máximo de elementos a generar aleatoriamente
  Rows = 100; // Número máximo de lineas del control TListview}
  Secuencia : Array[0..5] of String = ('primero','segundo', 'tercero', 'cuarto', 'quinto', 'sexto');
  Max = 50; // Número máximo de elementos a generar aleatoriamente
  Rows = 150000000; // Número máximo de lineas del control TListview

Como se puede ver, max y rows aparecen marcados como comentarios y ahí estaba el error.