ID aus Combobox auslesen

[Metallicwar]

Hallo,
ich trage Tätigkeitsnamen + ID's aus einer Datenbank in eine Combobox:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Panel1.Visible := False;
  with qTätigkeitgruppe do
  begin
    Active:=True;
    while not Eof do
    begin
      sname := FieldByName('Bezeichnung').AsString;
      ComboBox1.Items.AddObject(sName, TOBject(FieldByName('ID').AsInteger));
      Next;
    end;
  end;
end;

jedes mal wenn ich einen anderen Eintrag in der Combobox selektiere, soll er mir anhand der zugehörigen ID alle Tätigkeiten anzeigen die dieser Tätigkeitsgruppe angehören.

Code:

  qReportDaten.SQL.Text := 'SELECT * FROM TaetGruppen_Detail'+
                           ' LEFT OUTER JOIN Taetigkeiten ON TaetGruppen_Detail.ID_Taetigkeiten = Taetigkeiten.ID'+
                           ' LEFT OUTER JOIN TaetGruppen ON TaetGruppen_Detail.ID_TaetGruppen = TaetGruppen.ID'+
                           ' WHERE ID_TaetGruppen = Hier soll die ID aus der Combobox übergeben werden;';

Meine Frage: Wie kann ich aus einem selektierten Eintrag die dazugehörige "Datenbank" ID auslesen?

[DeddyH]

Vielleicht so?
ID := Integer(ComboBox.Items.Objects[ComboBox.ItemIndex]);

[haentschman]

... und bitte den Wert dem SQL als Parameter übergeben...

Und noch ein Tipp:
Dein + in jeder Zeile funktioniert bis die Stringlänge 255 überschreitet. (Ich meine mich zu erinnern) Diesem Problem kannst du aus dem Weg gehen wenn du jede neue Zeile (dient ja nur der Übersicht) mit Query.SQL.Add() hinzufügst.

[Thom]

Beim kommenden 64-Bit-Compiler sind Pointer (64 Bit) keine Integer (32 Bit) mehr. Also Achtung bei Typecast, wenn er aufwärtskompatibel sein soll.

[Metallicwar]

Vielen Dank für eure Info's und Tipps hat sowas alles funktioniert. Danke !

MfG David

[himitsu]

Und zu der Integer>Pointer>Integerumwandlung
Solange der Ursprungsinteger auch nur ein Integer ist, ist die Rückumwandlung vollkommen problemlos.
Schließlich wächst nur der Zwischentyp, kann also mehr aufnehmen und es gehen nirgendwo Informationen verloren.

[DeddyH]

Zitat von haentschman:

Und noch ein Tipp:
Dein + in jeder Zeile funktioniert bis die Stringlänge 255 überschreitet. (Ich meine mich zu erinnern)

Du verwechselst da etwas: innerhalb der IDE ist die Stringlänge je Zeile begrenzt. Wenn man einen längeren String deklariert, muss man ihn konkatenieren.

[CCRDude]

Zitat von DeddyH:

Du verwechselst da etwas: innerhalb der IDE ist die Stringlänge je Zeile begrenzt. Wenn man einen längeren String deklariert, muss man ihn konkatenieren.

Noch nichtmal per Zeile, sondern per String-Literal. Davon kann man auch in einer Zeile etliche hintereinander konkateniern.
Und was hat das mit der IDE zu tun?

[DeddyH]

Meine Güte, dann nenn es halt Sprachfeature oder was weiß ich. Es ging mir nur darum, dass ein String nicht auf 255 Zeichen begrenzt ist, so dass man bei längeren Strings auf das Add() ausweichen müsste, wie weiter oben behauptet wurde.