[KVESTOR]

Сообщение от poli-smen

Код:

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;

А как сделать если даже 1 поле пустое, чтобы выводил?