Rhytmus

[Nikolas]

kleiner Tip für die Lesbarkeit:

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);