Цитата:
|
Сообщение от snr93
...и без кавычек ничего не пашет
|
Записывается не содержимое Edit2.Text, а строка 'Edit2.Text'. Можно проверить
Код:
procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
begin
if Athread.Connection.ReadLn = 'cmd' then ShowMessage('все ок');
if Athread.Connection.ReadLn = '' then ShowMessage('Команда пришла пустой');
ShowMessage(Athread.Connection.ReadLn); // Добавить временно
end; И сразу станет ясно, что не так.