Показать сообщение отдельно
  #7  
Старый 07.09.2010, 16:08
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

Цитата:
Сообщение от Страдалецъ
Код:
ClientSocket1.Free;
    ClientSocket1:=TClientSocket.Create(Self);
Интересное решение, а если ClientSocket1 несуществует исключение само по себе обработается?
но он существует!!!))) его кинули на форму перед компиляцией и он не может не существовать, ибо:
ClientSocket1.Free;
ClientSocket1:=TClientSocket.Create(Self);
никогда не вызовет эксепшена (при нормальных условиях работы системы)
если есть способ вызвать эксепшн - буду счастлив лицезреть его
Ответить с цитированием