|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Вылет при обработке исключений try except в Android
День добрый.
Ищу совета знатоков. Суть этого куска кода в том, что бы попробовать соединиться с серваком при клике в мемо. И если связь есть, то всё отлично, но если связи нет вся програмулина просто вылетает. Не могу понять где косяк, в обработчике или сама платформа такая капризная. Код:
procedure Form.Memo1Click(Sender: TObject); procedure conn; //советовали попытку соединения загнать в отдельную процедуру - толку 0 Begin idftp1.connect; servstat.Text := 'сервер на связи'; servstat.FontColor := TAlphaColorRec.green; send.Enabled := true; End; begin if idftp1.Connected = false then //если не на связи try //пробуем соединиться conn; except //не получилось соединиться // on E: EConvertError do begin servstat.FontColor := TAlphaColorRec.Red end; end else //сервак был на связи до клика servstat.Text := 'сервер на связи'; servstat.FontColor := TAlphaColorRec.green; send.Enabled := true; end; |
#2
|
||||
|
||||
Посчитайте кол-во begin и end, похоже у них оно не совпадает
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |