Ordung muss sein

[axelf98]

Meine Lösung für das Problem:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i      :    integer;
    X      :    Cardinal;
    S      :    String;
    Zahlen :    Array[1..6] of Cardinal;
    Wahr   :    Array[1..49] of Boolean;
begin

  Randomize;

  for i := 1 to 6 do
  begin
   Repeat X := Random(49) + 1  until not Wahr[X];
   Zahlen[i] := X;
   Wahr[X] := true;
  end;
  
  for i := 1 to 6 do S := S + '   ' + inttostr(Zahlen[i]);  
  edit1.Text := S;   // Ausgabe

end;