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