Показать сообщение отдельно
  #4  
Старый 27.10.2016, 23:55
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,100
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Код:
Edit3.Text := ComboBox1.Items [ComboBox1.ItemIndex] + IfThen(Edit1.Text<>'',Edit1.Text+'&','') + IfThen(Edit2.Text<>'',Edit2.Text+'&','') + 'siganture=';

Хотя я бы за такой код в боевом проекте руки бы оторвал - оно ж не читабельно, потом, через год, например, хрен вспомнишь что это такое было.
Ответить с цитированием