Ordung muss sein

[Christian Seehase]

Moin block35plus1,

Mal eine Variante dazu. Ist aber ungetestet.

Delphi-Quellcode:

Procedure Zahlen_ermittelnOHNEDoppelte(var Lottozahlen:TLottozahlen);
var
  i       : integer;
  iZahl   : integer;
  iCount  : integer;
  fExists : boolean;

begin
  randomize;
  for i := 1 to 6 do  Lottozahlen[i] := 0;
  iCount := 6;
  while iCount > 0 do begin
    iZahl   := Random(49)+1;
    fExists := false;
    for i := 1 to 6 do begin
      if Lottozahlen[i] = iZahl then begin
        fExists := true;
        break;
      end;
    end;
    if not fExists then begin
      Lottozahlen[iCount] := iZahl;
      dec(iCount);
    end;
  end;
end;