Помощь - Поиск - Пользователи - Календарь
Полная версия: Обработка ошибки
Форум «Всё о Паскале» > Delphi, Assembler и другие языки. > Delphi
klem4
Как в данном случае обойти ошибку при не правильном формате файла, что нужно поставить на месте вопросов ?


procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
try

MediaPlayer1.Open;
MediaPlayer1.Play;

except on ??? do begin
ShowMessage('Error! Can''t play file.');
exit;
end;
end;

end;


или это вообще не так делается ? unsure.gif
volvo
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin

{ начало блока проверки }
try { проверять на ошибки в этом блоке }

MediaPlayer1.Open;
MediaPlayer1.Play;

except { если в проверяемом блоке есть ошибки - сделать следующее }
ShowMessage('Error! Can''t play file.');
exit;
end;
{ конец блока проверки }

end;

Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.