Problem mit Zugriff auf ComboBox Inhalt

[Sharky]

Hai Hansi,

da Du ja die ID des Datensatzes hast brauchst Du jetzt nur noch das .OnClick der ComboBox zu erweitern:

Delphi-Quellcode:

procedure TForm1.ComboBox1Click(Sender: TObject);
var
  sText : String;
  iID   : Integer;
begin
  sText := ComboBox1.Items[ComboBox1.ItemIndex];  // Akuteller Text in der CB
  Edit1.Text := sText;
  iID := Integer(Combobox1.Items.Objects[ComboBox1.ItemIndex]);
  Edit2.Text := IntToStr (iID);
  // Den gesamten Datensatz auswählen:
  with Query1 do
  begin
    Close;
    SQL.Text := 'SELECT * FROM test1 WHERE id = ' + #10
                + IntToStr (iID);
    Open;
    Editx := FieldByName ('feldname1').AsString;
    Edity := FieldByName ('feldname2').AsString;
    ...
    Close;
  end;
end;