Всем привет.
Столкнулся с проблемой, которую сам никак не могу решить. Есть TEdit (Edit3), в который я хочу выводить значение из ComboBox и несколько переменных, но что если одно из полей TEdit (Edit1 или Edit2) пустое. Как исключить добавление переменной например Vterm_id, если поле Edit1.Text осталось пустым?
Код:
1 2 3 4 5 6 7 | procedure TForm1 . Button1Click(Sender: TObject);
begin
Signature := 'siganture=' ;
Vterm_id := Edit1 . Text + '&' ;
User_ip := Edit2 . Text + '&' ;
Edit3 . Text := ComboBox1 . Items [ComboBox1 . ItemIndex] + Vterm_id + User_ip + Signature;
end ;
|