Roulette

[DeddyH]

Steigst Du da noch durch? Hast Du auch das richtige Label erwischt, oder sollte es eher Label63 oder gar Label74 sein? Was ich meine: benenne Deine Komponenten ordentlich, so dass man aus dem Bezeichner schon schließen kann, was sie darstellen. Apropos darstellen: noch besser wäre es, die Komponenten tatsächlich zur reinen Darstellung zu benutzen und nicht als Datenspeicher. Mal ein Beispiel zur Gegenüberstellung:

Delphi-Quellcode:

procedure TDeinForm.Division;
begin
  lblErgebnis.Caption := IntToStr(StrToInt(lblZahl1.Caption) div StrToInt(lblZahl2.Caption));
end;

procedure TDeinForm.Division2;
var
  Ergebnis: integer;
begin
  Ergebnis := FZahl1 div FZahl2; //private Integer-Felder des Formulars
  lblErgebnis.Caption := IntToStr(Ergebnis);
end;

[p80286]

Ich würde das ganze mit einem Record erschlagen

Delphi-Quellcode:

  tRouletteRec = record
     Zahl : word;
     PI   : TPairImpair;
     RN   : TRougeNoir { Grün nicht vergessen }
     ...
  end;

var
  ra: array [0..36] of tRouletteRec;

Im Initialisierungsteil werden alle Werte gesetzt und nach dem Würfeln wird dann ausgelesen was geworfen wurde.

Gruß
K-H

[galoru]

Bis jetzt steige ich noch durch, ich benenne nie die einzelnen Komponenten. Habe mittlerweile schon einiges an Quelltext dazubekommen. Wie prüfe, wenn zweimal ein Impair nacheinander kommt?

[Sir Rufo]

Indem du dir in einer Variable das speicherst/merkst?

[galoru]

Beim Impair muss es ja nicht zweimal die selbe Zahl sein. Es kann ja auch 21 und 13 sein.

[Sir Rufo]

Zitat von galoru:

Beim Impair muss es ja nicht zweimal die selbe Zahl sein. Es kann ja auch 21 und 13 sein.

Und wo ist das Problem?

LastRoundWasAlreadyImpair : Boolean; Und wenn Impair, prüfen ob wahr und reagieren. Wert auf wahr lassen.
Ansonsten den Wert auf false setzen.

Immer genau das speichern, was man sich merken möchte

[galoru]

Danke für die Tipps
Ach ja, 14 Punkte sind es geworden, 1 Punkt Abzug für nicht vorhandene Komponentenbezeichnung