Das große Lotto-Spiel - Bet and Win

[Martin K]

Die Prozedur für eine Lottoziehung sähe mit meiner Typendeklaration dann so aus:

Delphi-Quellcode:

Procedure Zahlen_ermitteln(var Lottozahlen: TLottozahlen); 
var
  i,j: Integer;
  zahl: TLottozahl;
  ok: boolean; 
begin 
  for i := 1 to 6 do
  begin 
    ok := true; 
    repeat 
      zahl := random(49)+1; 
      for j := 1 to i do 
        ok := ok and (lottozahlen[j] <> zahl); 
    until ok; 
    Lottozahlen[i] := zahl; 
  end; 
end;

Zurück zum Thema (da hat Balu der Bär wohl recht ), dies ist eigentlich eine noch bessere Lösung für das speichern, zumal man dann alles in EINE INI-Datei speichern kann, also das von den Listboxen und von den Edits.