Posso ridimensionare un array Delphi senza perdere i suoi contenuti precedenti?

Question

Ho una matrice dinamica. Ma inizialmente non conosco la lunghezza dell'array. Posso fare come prima ho impostato la lunghezza di esso come 1 e quindi aumentare la lunghezza di cui avevo bisogno senza perdita di dati precedentemente memorizzati?
So che posso eseguire tale attività utilizzando TList. Ma voglio sapere se posso farlo con array o no?

Answer 1

matrici dinamiche possono essere ridimensionate a una dimensione più grande senza perdere i dati contenuti.

Il seguente programma dimostra questo in azione.

program Project7; 

{$APPTYPE CONSOLE} 

uses 
    SysUtils; 
var 
A : Array of Integer; 
I : Integer; 
begin 
    for I := 0 to 19 do 
    begin 
    SetLength(A,I+1); 
    A[I] := I; 
    end; 
    for I := Low(A) to High(A) do 
    begin 
    writeln(A[I]); 
    end; 
    readln; 
end.