Slot Machine

[MacGuyver]

Moin,

vielleicht

Delphi-Quellcode:

if (Slot1 = Slot2) and (Slot2 = Slot3) then
begin



end;

[DeddyH]

Ich habe den geposteten Code einmal umgeschrieben und die ganzen Redundanzen eliminiert.

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);

  procedure LoadSlotPicture(img: TImage; slot: integer);
  const 
    Pfad = 'C:\Dokumente und Einstellungen\low Joe\Eigene Dateien\Casino Royale\';
  var
    Bild: string;
  begin
    case slot of
      1: Bild := 'orange.bmp';
      2: Bild := 'pflaume.bmp';
      3: Bild := 'cherry.bmp';  
    end;
    img.Picture.LoadFromFile(Pfad + Bild);
  end;
  
begin
  {Randomize;} //Start des Zufallszahlen-Generators (sollte nur einmal im Programm aufgerufen werden)
  slot1:=1+Random(3); 
  slot2:=1+Random(3); 
  slot3:=1+Random(3);

  LoadSlotPicture(img_ora, slot1);
  LoadSlotPicture(img_pfl, slot2);
  LoadSlotPicture(img_che, slot3);

  Label1.Caption:=inttostr(slot1);
  Label2.Caption:=IntToStr(slot2);
  Label3.Caption:=IntToStr(slot3);
end;

[Rhonso]

#3 funzt,musste nur die richtige Position finden

Zitat:

Wann sind denn drei Symbole gleich?

[Jumpy]

Was ist mit #3?

[Zacherl]

Antwort #3 ist wohl gemeint

[Jumpy]

[OT]
#3 war mir schon klar.
Das passiert, wenn man direkt auf den Vor-Post antwortet und der dann nachher geändert wird. Dann macht der eigene Post scheinbar keinen Sinn mehr.
K.A. was da die bessere Kultur ist:
Post nicht mehr (sinnändernd) editieren, nachdem es bereits neue Antowrten gibt, stattdessen neuen Post schreiben.
Oder aber so auf einen Post antworten, dass die Antwort auch aus dem Zusammenhang genommen noch verständlich ist.
Oder wie so oft im Leben, ein bißchen was von beidem?

[/OT]