Delphi Rhytmus - Delphi-PRAXiS

Thema durchsuchen

Ansicht

Themen-Optionen

Rhytmus

Ein Thema von Orhan · begonnen am 20. Feb 2005 · letzter Beitrag vom 24. Feb 2005

Antwort

Nikolas

Registriert seit: 28. Jul 2003
1.528 Beiträge

Delphi 2005 Personal

Re: Rhytmus

24. Feb 2005, 17:00

kleiner Tip für die Lesbarkeit:

zusammenfalten · markieren

Delphi-Quellcode:

			x:=x+1;

panel1.caption:=inttostr(x);

If panel1.caption= '1' then

PlaySound('\1.wav',0,snd_Async);

If panel1.caption='2' then

PlaySound('\2.wav',0,snd_Async);

If panel1.caption='3' then

PlaySound('\3.wav',0,snd_Async);

If panel1.caption='4' then

PlaySound('\4.wav',0,snd_Async);

If panel1.caption='5' then

PlaySound('\5.wav',0,snd_Async); 

-->

// str: string;

inc(x);

pane11.caption:= inttostr(x);

str:='\'+inttostr(x)+'.wav'

Playsound(str,0,snd_Async);