[Qoin]

Всем привет.

Столкнулся с проблемой, которую сам никак не могу решить. Есть 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;

[NumLock]

Чтобы код в одну строку то IfThen().

[M.A.D.M.A.N.]

TStringBuilder, TStringList;

[lmikle]

Код:

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

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

[ShamanVV]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

procedure TForm1.Button1Click(Sender: TObject); begin   Signature := 'siganture='; if (edit1.text='') and (edit2.text='') then showmessage('Все поля пустые') else  if (edit1.text<>'') and (edit2.text<>'') then begin Vterm_id := Edit1.Text + '&';   User_ip := Edit2.Text + '&';   Edit3.Text := ComboBox1.Items [ComboBox1.ItemIndex] + Vterm_id + User_ip + Signature; end;  If edit1.text='' then begin  User_ip := Edit2.Text + '&';   Edit3.Text := ComboBox1.Items [ComboBox1.ItemIndex] + User_ip + Signature; end;   if edit2.text='' then begin   Vterm_id := Edit1.Text + '&';   Edit3.Text := ComboBox1.Items [ComboBox1.ItemIndex] + Vterm_id  + Signature; end; end;

MAD: не забываем про теги, иначе будет расцениваться как нарушение правил форума.
Вот так.