redimensionar varias veces un array

[ecfisa]

Hola Manuel.

Dos detalles, la inicialización de la variable de control y la forma que aumentas el tamaño del arreglo dinámico.

Código Delphi [-]
procedure calcular;
var
  Numeros: array of double;
  i: integer;
begin
  // i:=i; ( mal, el valor de 'i' no está definido )
  i:= 0;
  while i < 6 do
  begin
    // Tamaño anterior del arreglo dinámico, incrementado en uno
    SetLength(Numeros, Length(Numeros) + 1);
    carga_datos(Numeros);
    Inc(i);
  end;
end;

Aunque es mas simple:

Código Delphi [-]
procedure Calcular;
var
  Numeros: array of Double;
  i: Integer;
begin
  for i:= 0 to 5 do
  begin
    SetLength(Numeros, Length(Numeros)+1);
    carga_datos(Numeros);
  end;
end;

O como en estos casos, que sabemos de antemano que serán 6 elementos, mas simple todavía:

Código Delphi [-]
procedure Calcular;
var
  Numeros: array of Double;
  i: Integer;
begin
  SetLength(Numeros, 5);
  for i:= Low(Numeros) to High(Numeros) do  // o: for i:= 0 to 5 do ...
    carga_datos(Numeros);
end;

Saludos