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

zusammenfalten · markieren

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.

markieren

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?

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

... 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.

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

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

MfG David

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.

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?

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.

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.

Zitat:

Make sure that any place that relies on casting a pointer value to an integer or vice versa is using NativeInt or NativeUInt for the integer type.

How to also prepare for 64-bits when migrating to Delphi 2010 and Unicode

Ich hatte kein Wort darüber verloren, daß Informationen verloren gehen. Aber wo ist das Problem, bei einem Typecast statt Integer NativeInt zu schreiben und dafür einen sauberen Code zu bekommen?