Delphi. Трюки и эффекты

Присоединение/отсоединение от сервера

procedure TfrmClient.cmbConnectClick(Sender: TObject);

begin

if (cmbConnect.Caption = \'Подключиться\') then

begin

//Проверим, чтобы были введены имя сервера

//и имя пользователя

if (txtServer.Text = \'\')then

begin

MessageDlg(\'Введите имя сервера в текстовое поле.\',

mtInformation, [mbOK], 0);

Exit;

end

else if (txtUser.Text = \'\')then

begin

MessageDlg(\'Введите имя пользователя в текстовое поле.\',

mtInformation, [mbOK], 0);

Exit;

end;

//Пытаемся подключиться к серверу

try

TCPClient.Host := txtServer.Text;

TCPClient.Connect;

except

MessageDlg(\'Не удается соединиться с сервером\',mtError,

[mbOK], 0);

end;

end

else

//Отключаемся от сервера

TCPClient.Disconnect;

end;