[poli-smen]

Сообщение от KVESTOR

1. Как можно сделать так, чтобы выбранное значение ComboBox1 присваивалось переменной?
2. Я хочу сделать структуру IF (условие), и если оба ComboBox пусты, то будет выводиться сообщение ('Заполните поля!').

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  str: String;
begin
  // 1) Считываем в переменную str выбранное в ComboBox1 значение:
  str := ComboBox1.Text;

  // 2) Проверяем чтобы был заполнен хоть один ComboBox:
  if (ComboBox1.Text = '') and (ComboBox2.Text = '') then
  begin
    ShowMessage('Заполните поля!');
    Exit;
  end;
.....
end;