Удаление списка из ComboBox

[Demien]

Есть ComboBox и его необходимо очистить.

ComboBox2.Items.Clear;

не подходит...
Посоветуйте чего нибудь)

[Пепел Феникса]

а чем не подходит то?

[Demien]

Очищать список ComboBox-а необходимо в процессе его же заполнения:

procedure TForm2.ComboBox2Change(Sender: TObject);
var
  z: Integer;
begin
  //ComboBox2.Items.Clear;

  MySQLResult:=MySQLClient.Query('SELECT Mesto FROM mop WHERE Mesto LIKE '''+
                                 ComboBox2.Text+'%'' AND Tip='''+
                                 ComboBox1.Text+''';', True, OK);
  if MySQLResult.RowsCount>0 then
  for z:=0 to MySQLResult.RowsCount-1 do
    begin
      ComboBox2.Items.Add(MySQLResult.FieldValueByName('Mesto'));
      MySQLResult.Next;
    end;
end;

ComboBox2.Items.Clear; мало того, что после ввода символа всегда возвращает каретку на начало, так еще и напрочь лишает возможности чего нить выбрать из списка...

[Аватар]

Очищать список ComboBox-а необходимо в процессе его же заполнения

Это как-то по китайски, но если очень хочется, то можно так

procedure TForm2.ComboBox2Change(Sender: TObject);
var
  z: Integer;
begin
  ComboBox2.OnChange:=nil;
  ComboBox2.Items.Clear;
//здесь ваш код нового заполнения
  ...
  ComboBox2.OnChange:=ComboBox2Change;
end;

Для позиции курсора повоюйте с SelStart

[Demien]

Сообщение от Аватар

Это как-то по китайски...

Мне не критично "Как?"! Лишь бы работало!

[artemavd]

Например так:

 Form1.pFIBQuery1.Close;
 Form1.pFIBQuery1.SQL.Clear;
 Form1.pFIBQuery1.SQL.Text:='select * from Table_Name';
 Form1.pFIBQuery1.ExecQuery;
 Form1.ComboBox1.Items.Clear; 
 while not Form1.pFIBQuery1.Eof do
 begin
  Form1.ComboBox1.Items.Add(Form1.pFIBQuery1.FieldByName('Pole').AsString;
  Form1.pFIBQuery1.Next;
 end;

идея понятна? переделай под свой запрос

[Demien]

artemavd У меня проблема в том, что очищать список КомбоБокса надо в процессе его заполнения!

[artemavd]

Так ты внимательно посмотри на мой код. Объясняю последовательность действий сего кода (помести его туда, где тебе надо заполнить ComboBox1):
1. Сначала выполняется какой-то запрос
2. Потом очищается нужный ComboBox
3. Потом, все выбранные записи в запросе, заносятся в нужный ComboBox
Если это не то, что тебе нужно - значит ты сам не знаешь, что тебе нужно сделать, ибо то, что я написал как раз и очищает в процессе заполнения и сразу заполняет нужный ComboBox

[Demien]

Не работает у меня...
Уже крыша едет...

procedure TForm2.ComboBox2Change(Sender: TObject);
var
  z: Integer;
begin
  // 1 - Сохраняем текст ComboBox-а
  s:=ComboBox2.Text;
  
  // 2 - Выполняем запрос
  MySQLResult:=MySQLClient.Query('SELECT Mesto FROM mop WHERE Mesto LIKE '''+
                                 ComboBox2.Text+'%'' AND Tip='''+
                                 ComboBox1.Text+''';', True, OK);

  // 3 - Если найдены записи 
  if MySQLResult.RowsCount>0 then
  begin
  // 4 - Очищаем ComboBox
  ComboBox2.Items.Clear;
  // 5 - Заполняем ComboBox
  for z:=0 to MySQLResult.RowsCount-1 do
    begin
      ComboBox2.Items.Add(MySQLResult.FieldValueByName('Mesto'));
      MySQLResult.Next;
    end;
  // 6 - Возвращаем начальный текст в ComboBox
    ComboBox2.Text:=s;
  end;
end;

И не работает...
1. Каретка всегда смещается в начало строки;
2. Сколько не выбирай из списка - ComboBox пустой.

[artemavd]

1. Странно ты сохраняешь текст. Совет: перегони содержимое ComboBox2.Items в переменную типа TStringList, так надежнее.
Вот эта билеберда мне вообще не понятна с точки зрения логики:

// 3 - Если найдены записи 
  if MySQLResult.RowsCount>0 then
  begin
  // 4 - Очищаем ComboBox
  ComboBox2.Items.Clear;
  // 5 - Заполняем ComboBox
  for z:=0 to MySQLResult.RowsCount-1 do
    begin
      ComboBox2.Items.Add(MySQLResult.FieldValueByName('Mesto'));
      MySQLResult.Next;
    end;
  // 6 - Возвращаем начальный текст в ComboBox
    ComboBox2.Text:=s;

Зачем проверяет что количество записей больше 0? Пусть запрос вытаскивает все записи, а ты проверяй количество записей не в запросе, а уже после выполнения запроса сам ComboBox2 на количество записей, т.е. условие

  if MySQLResult.RowsCount>0 then
  begin
   ...
  end;

- абсолютно лишнее. ИМНО.
Далее.
2. Не пихай в событие OnChange, код в котором выполняется при любой попытке ввести с клавиатуры что-то в ComboBox2. Выполняй этот код в другом месте, либо попробуй поместить его в OnEnter, но лучше заполнять список в другом месте.