Параметр поля со списком не имеет значения по умолчанию в delphi

Question

Программа, над которой я работаю, использует оператор if, чтобы добавить строку в SQL для содержимого другого поля со списком.

procedure TFmNewGarage.ComboBoxCountryEnter(Sender: TObject);
begin
  ADOQueryCountry.SQL.Clear;
  ADOQueryCountry.SQL.Add('SELECT DISTINCT Country');
  ADOQueryCountry.SQL.Add(' FROM TblBaseCar');
  ADOQueryCountry.Open;
  while not ADOQueryCountry.Eof do
  begin
  ComboBoxCountry.Items.Add(ADOQueryCountry['Country']);
  ADOQueryCountry.Next;
  end;
end;

procedure TFmNewGarage.ComboBoxCountryChange(Sender: TObject);
begin
  SelA:=True;
  ComboBoxManufacturer.Show;
  ComboBoxCountry.Hide;
end;

procedure TFmNewGarage.ComboBoxManufacturerEnter(Sender: TObject);
begin
  ADOQueryManufacturer.SQL.Clear;
  ADOQueryManufacturer.SQL.Add('SELECT DISTINCT Manufacturer');
  ADOQueryManufacturer.SQL.Add(' FROM TblBaseCar');
  if SelA=true then
  ADOQueryManufacturer.SQL.Add(' WHERE Country=(ComboBoxCountry.seltext)');
  ADOQueryManufacturer.Open;
  while not ADOQueryManufacturer.Eof do
  begin
  ComboBoxManufacturer.Items.Add(ADOQueryManufacturer['Manufacturer']);
  ADOQueryManufacturer.Next;
  end;
end;

Во время выполнения это приводит к ошибке ComboBoxCountry.seltext не имеет значения по умолчанию, может кто-нибудь помочь мне исправить это?

Answer 1

SelText не является собственностью, которую вы должны использовать. Вам нужен комбинированный список Items значение для выбранного ItemIndex:

var
 Country: string;
begin
  ...
  if ComboBoxCountry.ItemIndex <> -1 then
  begin
    Country := ComboBoxCountryItems[ComboBoxCountry.ItemIndex];
    ADOQueryManufacturer.SQL.Add('WHERE Country = ' + QuotedStr(Country));
  end;
end;