Integer Zahlen in ein dynamisches Array randomizen lassen.

[Glados]

Wenn dann wenigstens so

Delphi-Quellcode:

Edit1.NumbersOnly := True; // Im ObjektInspektor einstellen oder FormCreate

var
 ArrayLen, i: Integer;
 ZahlSort: TArray<Integer>; // bzw. array of Integer;
begin
 ArrayLen := StrToIntDef(Edit1.Text, 0);

 if ArrayLen > 0 then
  begin
    SetLength(ZahlSort, ArrayLen);
    
    for i := 0 to ArrayLen - 1 do
     ZahlSort[i] := Random(200);
  end;

Zitat:

randomize;

Braucht man bei neueren Delphi-Versionen nicht, denn beim Erzeugen der Formulare wird das initial schon aufgerufen.