Kann ich die Größe eines Delphi-Arrays ändern, ohne den vorherigen Inhalt zu verlieren?

Question

Ich habe ein dynamisches Array. Aber ich kenne die Länge des Arrays zunächst nicht. Kann ich zuerst tun, ich setze die Länge von 1 und dann die Länge wie ich brauchte, ohne vorher gespeicherte Daten verloren zu haben?
Ich weiß, dass ich eine solche Aufgabe mit TList tun kann. Aber ich möchte wissen, ob ich es mit Array machen kann oder nicht?

Answer 1

Dynamische Arrays können zu einer größeren Größe geändert werden, ohne die enthaltenen Daten zu verlieren.

Das folgende Programm demonstriert dies in Aktion.

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.