[vladimirse]

Доброго времени суток, уважаемые!

Есть таблица Objects с полями IDObject, Object, IDType. Значения в полях не повторяются.

Делаю выборку из базы:

Код:

procedure TForm3.DBLookupComboBox1DropDown(Sender: TObject);
begin
  SQLQuery1.Close;
  SQLQuery1.SQL.Clear;
  SQLQuery1.SQL.Add('SELECT * FROM `Passwords`.`Objects`');
  SQLQuery1.Open;
end;  

Затем при выборе значения вывожу содержимое одного из столбцов (IDType) на экран:

Код:

procedure TForm3.DBLookupComboBox1Select(Sender: TObject);

begin
  ShowMessage(SQLQuery1.FieldByName('IDType').AsString);
end; 

Но значение это каждый раз одно и то же. Как мне сделать так, что бы значение IDType выводимое на экран соответствовало выбранному из списка?

[vladimirse]

В общем разрулил следующим образом:

Код:

procedure TForm3.DBLookupComboBox1DropDown(Sender: TObject);
begin
  SQLQuery1.Close;
  SQLQuery1.SQL.Clear;
  SQLQuery1.SQL.Add('SELECT * FROM `Passwords`.`Objects`');
  SQLQuery1.Open;
end;

procedure TForm3.DBLookupComboBox1Select(Sender: TObject);
var
  value: string;
begin
  value:=DBLookupComboBox1.KeyValue;
  SQLQuery2.Close;
  SQLQuery2.SQL.Clear;
  SQLQuery2.SQL.Add('SELECT `IDType` FROM `Passwords`.`Objects` WHERE `IDObject` ='+value+'');
  SQLQuery2.Open;

  ShowMessage(SQLQuery2.FieldByName('IDType').AsString);

end;