Hallo!
Ich programmiere gerade BlackJack. Beim Kartengeben hätte ich gerne eine Zeitverzögerung zwischen den jeweiligen Karten.
Dazu verwende ich sleep();. Bei starten der Procedure, beginnt eine Zeitverzögerung, und dann erst werden alle Karten gleichzeitig ausgegeben. Gebe ich ein Showmessage zwischen die beiden sleep(); so funktioniert es. Ich möchte aber kein Showmessage haben.
Weiß jemand wo mein Fehler ist?
Delphi-Quellcode:
procedure TForm1.neuClick(Sender: TObject);
var
Pfad: string;
begin
Pfad:= extractfilepath(application.ExeName) +'KartenBilder/';
Tisch.Picture.LoadFromFile(Pfad + 'blackJackTisch.jpg');
Karte_waehlen(); KartenwertICH:= Kartenwert; Ich1.Picture.LoadFromFile(Pfad + inttostr(Kartennummer)+'.bmp'); sleep(2000); showmessage('Test');
Karte_waehlen(); KartenwertPC:= Kartenwert; PC1.Picture.LoadFromFile(Pfad + inttostr(Kartennummer)+'.bmp'); sleep(2000);
Karte_waehlen(); KartenwertICH:= KartenwertICH + Kartenwert; Ich2.Picture.LoadFromFile(Pfad + inttostr(Kartennummer)+'.bmp');
lb_ich.Caption:= inttostr(KartenwertICH); lb_pc.Caption:= inttostr(KartenwertPC);
lb_ich.Visible:= true; lb_pc.Visible:= true;
end;