Delphi компонент ComboBox

[severin]

Здравствуйте помогите пожалуйста!
На форме для регистрации расположены два ComboBox, в одном выбираем название группы, а в другом в зависимости от группы должен вывалится список группы, которую выбрали как это реализовать?

[SERG1980]

В событии OnChange первого бокса можно загружать в StringList файл в котором находятся фамилии студентов и добавляем во второй бокс. Предварительно в боксе1 добавить итемсы названия которых соответствуют названию файлов
Вот пример

procedure TForm1.ComboBox1Change(Sender: TObject);
 var sl:TstringList;
     i:integer;
begin
  sl:=TStringList.Create;
  sl.LoadFromFile('c:\'+combobox1.Text+'.txt');
  for i:= 0 to sl.Count - 1 do
   combobox2.Items.Add(sl.Strings[i]);
  sl.Free
end;

[severin]

Спасибо, очень помог!

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

В событии OnChange первого бокса можно загружать в StringList файл в котором находятся фамилии студентов и добавляем во второй бокс. Предварительно в боксе1 добавить итемсы названия которых соответствуют названию файлов
Вот пример

procedure TForm1.ComboBox1Change(Sender: TObject);
 var sl:TstringList;
     i:integer;
begin
  sl:=TStringList.Create;
  sl.LoadFromFile('c:\'+combobox1.Text+'.txt');
  for i:= 0 to sl.Count - 1 do
   combobox2.Items.Add(sl.Strings[i]);
  sl.Free
end;

Serg, ввозникла небольшая проблемка, второй бокс нормально выбирает в зависимости от выбора группы, но при повторном нажатии группы в коробке со студентами дублируются прошлые варианиы выбора как этого избежать?

[Stilet]

Ну может стоит Combobox2 очищать его методом Clear?

[severin]

Спасибо все работает

[monushka]

Я делала так (может глупо, конечно, но без файлов зато):

procedure TForm1.ComboBox2Change(Sender: TObject);
begin
ComboBox3.Enabled:=True;
if (ComboBox1.Text='Одесса') and (ComboBox2.Text='ДП№1_ПО№1') then
begin
ComboBox3.Text:='';
ComboBox3.Items.Clear;
ComboBox3.Items.Add('Жуковская Галина Михайловна');
ComboBox3.Items.Add('Касюга Людмила Станиславовна');
ComboBox3.Items.Add('Маслеников Денис Владимирович');
ComboBox3.Items.Add('Меняйло Валентина Петровна');
ComboBox3.Items.Add('Тациенко Людмила Иларионовна');
ComboBox3.Items.Add('Чумаченко Людмила Валериевна');
end;

В зависимости от выбранного города и поликлинники, в комбоБокс3 выводились соответствующие врачи.

[Stilet]

ComboBox3.Text:='';
ComboBox3.Items.Clear;

Это равноценные действия. Можешь Clear выкинуть.

[monushka]

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

Это равноценные действия. Можешь Clear выкинуть.

Действительно, что это я? Спасибо.

[Квэнди]

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

Это равноценные действия. Можешь Clear выкинуть.

Разве ?
Свойство text компонента отвечает за тот текст, который просто сейчас выбран/написан в текстовом поле компонента, а items это список строк... это далеко неравноценные действия ) может перепутал с

ComboBox3.items.Text:='';

?

Use the Text property to read the Text of the control or specify a new string for the Text value. By default, Text is the control name. For edit controls and memos, the Text appears within the control. For combo boxes, the Text is the content of the edit control portion of the combo box.

[Stilet]

может перепутал с

Блин, извиняйте, точно перепутал
Именно это и имел ввиду.