Цитата:
|
ведь в цикле может быть только одна процедура
|
В IF-е или цикле может быть одна команда. Однако если поставить операторные скобки (begin ... end
то можно будет делать много.
Код:
if image12.Tag=y then
begin
Mediaplayer1.FileName:='file.mp3';
MediaPlayer1.Open;
MediaPlayer1.Play;
end
else
begin
Mediaplayer1.FileName:='file2.mp3';
MediaPlayer1.Open;
MediaPlayer1.Play;
end;
А вообще тут несколько не обязательно:
Код:
if image12.Tag=y then
Mediaplayer1.FileName:='file.mp3'
else
Mediaplayer1.FileName:='file2.mp3';
MediaPlayer1.Open;
MediaPlayer1.Play;