Почему я не могу заставить одно из условий работать?

[Almaz92]

if IdSMTP1.Connected then Memo1.Text:=('Есть соединение');
Это работает нормально без проблем!




if IdSMTP1.Disconnect then Memo1.Text:=('Нет соединения');
А это выдаёт ошибку! Как сделать правильно, что-бы оно действовало?
Нужно прямо противоположное первому условию!



if IdSMTP1.Connected then Memo1.Text:=('yyyyyyyyy') else Memo1.Text:=('aaaaaaaaa');
Так тоже срабатывает только IF, а else не работает

[pu4koff]

if not IdSMTP1.Connected then Memo1.Text:=('Нет соединения');
а вообще непонятно когда и где вызываете и чего за ошибки выдаёт, если выдаёт

[Almaz92]

if not IdSMTP1.Connected then Memo1.Text:=('Нет соединения');
пробовал, тоже не хочет делать !

Коннект обрабатывается, а дисконнект ни в какую!

[vlad1389]

if IdSMTP1.Connected then Memo1.Text:=('yyyyyyyyy') else Memo1.Text:=('aaaaaaaaa');
Так тоже срабатывает только IF, а else не работает

А если без интернета код запустить? IdSMTP1.Connected это не просто буллеон. Это функция, выполняющая код. Если соединение проходит успешно, ветка else никогда не отработает.

if IdSMTP1.Disconnect then Memo1.Text:=('Нет соединения');
А это выдаёт ошибку!

Так как это процедура. А процедуры ничего не возвращают. Подучи теорию. Не отличаешь функцию от процедуры. И кстати у ошибки есть текст. Если его читать, всё становится намного проще.

[Almaz92]

Спасибо за разъяснение, теперь я понял почему это условие не выполнимо!

[Almaz92]

А как можно реализовать это посредством таймера?
Если есть соединение к хосту то действие 1 например button1.click;
Если нет соединения то действие 2 например button2.click;

[vlad1389]

У данного компонента есть обработчик события OnStatus. Соответственно таймер не нужен.

procedure TForm1.IdSMTP1Status(ASender: TObject; const AStatus: TIdStatus;
  const AStatusText: string);
begin

end;

  TIdStatus = ( hsResolving,
                hsConnecting,
                hsConnected,
                hsDisconnecting,
                hsDisconnected,
                hsStatusText,
                ftpTransfer,  // These are to eliminate the TIdFTPStatus and the
                ftpReady,     // coresponding event
                ftpAborted);