Lottogenerator ERLEDIGT!

[zecke]

ich habe mal so etwas gemacht und habe nichts wirklich besseres gefunden, als du schon sagtest. bin aber nicht gerade ein delphi-meister. vielleicht hilft dir mein code trotzdem weiter:

Delphi-Quellcode:

var zahl1,zahl2,zahl3,zahl4,zahl5,zahl6 : integer;

// etc...

function zahlenziehen():integer;
begin
// Zufallsgenerator neu
randomize;

// Zahlen zuweisen
zahl11:=random(49)+1;

begin
  repeat
      zahl2:=random(49)+1;
  until
      zahl1<>zahl2;
end;

begin
  repeat
      zahl3:=random(49)+1;
  until
      (zahl1<>zahl3) and (zahl2<>zahl3);
end;
begin
  repeat
      zahl4:=random(49)+1;
  until
      (zahl1<>zahl4) and (zahl2<>zahl4) and (zahl3<>zahl4);
end;
begin
  repeat
      zahl5:=random(49)+1;
  until
      (zahl1<>zahl5) and (zahl1<>zahl5) and (zahl3<>zahl5) and (zahl4<>zahl5);
end;
begin
  repeat
      zahl6:=random(49)+1;
  until
      (zahl1<>zahl6) and (zahl2<>zahl6) and (zahl3<>zahl6) and (zahl4<>zahl6) and (zahl5<>zahl6);
end;
end;