|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
условия в ComboBox
Здравствуйте господа программисты !
Подскажите пожалуйста Код:
procedure TForm2.sButton1Click(Sender: TObject); var s1,s2,s3,s4:string; begin if ComboBox1.ItemIndex = 0 then begin s1 := sEdit1.Text; s2 := sEdit2.Text; s3 := sEdit3.Text; s4 := sDateEdit1.Text; Form1.ADOTable1.Insert; Form1.ADOTable1.FieldByName('Имя').AsString := s1; Form1.ADOTable1.FieldByName('Фамилия').AsString := s2; Form1.ADOTable1.FieldByName('Отчество').AsString := s3; Form1.ADOTable1.FieldByName('Дата рождения').AsString := s4; end else if ComboBox1.ItemIndex = 1 then begin s1 := sEdit1.Text; s2 := sEdit2.Text; s3 := sEdit3.Text; s4 := sDateEdit1.Text; Form1.ADOTable2.Insert; Form1.ADOTable2.FieldByName('Имя').AsString := s1; Form1.ADOTable2.FieldByName('Фамилия').AsString := s2; Form1.ADOTable2.FieldByName('Отчество').AsString := s3; Form1.ADOTable2.FieldByName('Дата рождения').AsString := s4; end else if ComboBox1.ItemIndex = 2 then begin s1 := sEdit1.Text; s2 := sEdit2.Text; s3 := sEdit3.Text; s4 := sDateEdit1.Text; Form1.ADOTable3.Insert; Form1.ADOTable3.FieldByName('Имя').AsString := s1; Form1.ADOTable3.FieldByName('Фамилия').AsString := s2; Form1.ADOTable3.FieldByName('Отчество').AsString := s3; Form1.ADOTable3.FieldByName('Дата рождения').AsString := s4; end; end; Как можно сделать что бы выходило сообщение Код:
ShowMessage('Вы не выбрали регион'); Если в ComboBox1 нечего не выбранно. Заранее спасибо! |
#2
|
|||
|
|||
Разобрался
Код:
if ComboBox1.Text='' then ShowMessage('Вы не выбрали регион'); |
#3
|
||||
|
||||
там всойство вообще-то есть, называется style, поставь его в csDropDownList
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |