|
Registriert seit: 12. Feb 2004
Ort: Kiel
35 Beiträge
|
Re: Problem mit case of
27. Feb 2004, 17:29
neee
Da kommen nur noch ein paar case Abfragen -->
case melodie[zaehler1] of
1 : begin
sndPlaySound('1.wav', SND_ASYNC);
Edit1.Text :='hallo';
end;
2 : ...
3 : ...
...
Dann ist die Prozedur zuende und das Programm springt zurück aufrufenden Stelle.
Ach ja, zaehler1 wird natürlich noch hochgezähl (inc(zaehler1);), weil melodie ein Array ist und das nächste Element ermittelt werden soll
|