Slot Machine

[Rhonso]

Hey Community,
Ich bin ein Anfänger in Sachen Delphi und bräuchte Hilfe, bei meinem Spielautomaten.
Undzwar will ich mit If und and versuchen, dass sich zb. ein fenster öffnet wenn drei gleiche Symbole angezeigt werden. Nur komme ich einfach nicht drauf wie ich das hinbekommen kann.
Ein kleiner Einblick

Code:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
     Randomize; //Start des Zufallszahlen-Generators
     slot1:=1+Random(3); slot2:=1+Random(3); slot3:=1+Random(3);
if slot1=1 then img_ora.Picture.LoadFromFile('C:\Dokumente und Einstellungen\low Joe\Eigene Dateien\Casino Royale\orange.bmp');
if slot1=2 then img_ora.Picture.LoadFromFile('C:\Dokumente und Einstellungen\low Joe\Eigene Dateien\Casino Royale\pflaume.bmp');
if slot1=3 then img_ora.Picture.LoadFromFile('C:\Dokumente und Einstellungen\low Joe\Eigene Dateien\Casino Royale\cherry.bmp');

if slot2=1 then img_pfl.Picture.LoadFromFile('C:\Dokumente und Einstellungen\low Joe\Eigene Dateien\Casino Royale\orange.bmp');
if slot2=2 then img_pfl.Picture.LoadFromFile('C:\Dokumente und Einstellungen\low Joe\Eigene Dateien\Casino Royale\pflaume.bmp');
if slot2=3 then img_pfl.Picture.LoadFromFile('C:\Dokumente und Einstellungen\low Joe\Eigene Dateien\Casino Royale\cherry.bmp');

if slot3=1 then img_che.Picture.LoadFromFile('C:\Dokumente und Einstellungen\low Joe\Eigene Dateien\Casino Royale\orange.bmp');
if slot3=2 then img_che.Picture.LoadFromFile('C:\Dokumente und Einstellungen\low Joe\Eigene Dateien\Casino Royale\pflaume.bmp');
if slot3=3 then img_che.Picture.LoadFromFile('C:\Dokumente und Einstellungen\low Joe\Eigene Dateien\Casino Royale\cherry.bmp');

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

Danke

[nachti1505]

Wann sind denn drei Symbole gleich?

[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 :P

[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]