redimensionar varias veces un array

[[nlsgarcia]]

Manuel,

Empezado por Manuel

...¿como se puede hacer para redimensionar varias veces?...me he dado cuenta que cuando aumento la cantidad de elementos no hay problemas , pero si cuando se redimensiona a menos elementos se produce el error...

Revisa este código:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
   A1 : Array of Integer;
   i : Integer;
   Msg : String;

begin

   // Muestra Longitud de A1 la cual esta en Cero dado que no ha sido Redimensionado
   ShowMessage('Longitud de A1 = ' + IntToStr(Length(A1)));

   // Redimensiona a 10, Carga 10 Elementos y Muestra el Primer y Último Elemento de A1
   SetLength(A1,10);
   ShowMessage('Longitud de A1 = ' + IntToStr(Length(A1)));
   for i := Low(A1) to High(A1) do
      A1[i] := i+1;
   Msg := 'Primer y Último Elemento de A1 = ' + IntToStr(A1[Low(A1)]) + ',' + IntToStr(A1[High(A1)]);
   ShowMessage(Msg);

   // Redimensiona a 20, Carga 20 Elementos y Muestra el Primer y Último Elemento de A1
   SetLength(A1,20);
   ShowMessage('Longitud de A1 = ' + IntToStr(Length(A1)));
   for i := Low(A1) to High(A1) do
      A1[i] := i+1;
   Msg := 'Primer y Último Elemento de A1 = ' + IntToStr(A1[Low(A1)]) + ',' + IntToStr(A1[High(A1)]);
   ShowMessage(Msg);

   // Redimensiona a 30, Carga 30 Elementos y Muestra el Primer y Último Elemento de A1
   SetLength(A1,30);
   ShowMessage('Longitud de A1 = ' + IntToStr(Length(A1)));
   for i := Low(A1) to High(A1) do
      A1[i] := i+1;
   Msg := 'Primer y Último Elemento de A1 = ' + IntToStr(A1[Low(A1)]) + ',' + IntToStr(A1[High(A1)]);
   ShowMessage(Msg);

   // Redimensiona a 20, Carga 20 Elementos y Muestra el Primer y Último Elemento de A1
   SetLength(A1,20);
   ShowMessage('Longitud de A1 = ' + IntToStr(Length(A1)));
   for i := Low(A1) to High(A1) do
      A1[i] := i+1;
   Msg := 'Primer y Último Elemento de A1 = ' + IntToStr(A1[Low(A1)]) + ',' + IntToStr(A1[High(A1)]);
   ShowMessage(Msg);

   // Redimensiona a 10, Carga 10 Elementos y Muestra el Primer y Último Elemento de A1
   SetLength(A1,10);
   ShowMessage('Longitud de A1 = ' + IntToStr(Length(A1)));
   for i := Low(A1) to High(A1) do
      A1[i] := i+1;
   Msg := 'Primer y Último Elemento de A1 = ' + IntToStr(A1[Low(A1)]) + ',' + IntToStr(A1[High(A1)]);
   ShowMessage(Msg);

end;

El código anterior en Delphi 7 bajo Windows 7 Professional x32, redimensiona un arreglo de enteros en forma creciente y decreciente y efectúa operaciones sobre sus elementos.

Revisa esta información:

Delphi Basics : SetLength Procedure

Espero sea útil

Nelson.