Zufallszahlen generieren und in Memo feld ausgeben funktioniert nicht

[Bjoerk]

Eine Reihe von Zufallszahlen kann man eigentlich ganz nett mit einer TList machen.

Delphi-Quellcode:

procedure GetRandomNumbers(Strings: TStrings; AFrom, ATo: integer);
var
  I, J: integer;
  List: TList;
begin
  List := TList.Create;
  Strings.Clear;
  try
    for I := AFrom to ATo do
      List.Add(Pointer(I));
    while List.Count > 0 do
    begin
      I := Random(List.Count);
      J := Integer(List[I]);
      Strings.Add(IntToStr(J));
      List.Delete(I);
    end;
  finally
    List.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  GetRandomNumbers(Memo1.Lines, 1, 12);
end;

Die Zahlen im Memo anders unterzubringen solltest du schaffen.