Daten mit ID in eine ComboBox laden?

[AlexII]

Hallo,

ich hab hier ein folgendes Problem, wo ich Gedankenanstöße brauchen.
Also ich möchte aus einer DB Daten laden, in meinem Beispiel die Namen der Kunden. Das klappt auch soweit, nur wohin lade ich die IDs der Kunden? So ne Art wie .Data gibt's bei den ComboBoxen so wie ich sehe nicht. :gruebel: Was mache ich da am besten, ne virtuelle StringList oder so nehmen, oder gibt's da schönere Vorgehensweisen?

Danke!

[mkinzler]

Jede Komponente besitzt die .Tag Eigenschaft, die du hierfür verwenden kannst.

[Bummi]

Delphi-Quellcode:

  Combobox1.Items.AddObject(KundenName.asString,TObject(KundenID.asInteger));

[scrat1979]

Verwendet bei der combobox nicht .Add('') sondern .AddObject() und caste die ID (integer) als TObject

[AlexII]

Ist mir ein bisschen zu kompliziert das mit TObject, aber ok, nun wie lese ich danach die ID wieder aus? :gruebel:

[nuclearping]

Zitat:

Zitat von AlexII (Beitrag 1188480)

Ist mir ein bisschen zu kompliziert das mit TObject, aber ok, nun wie lese ich danach die ID wieder aus? :gruebel:

Delphi-Quellcode:

ID := Integer(ComboBox1.Items.Objects[ComboBox1.ItemIndex]);

[AlexII]

Ok, muss man überlegen was mir am besten passt, und wie kann man die Tags der einzelnen Zeilen auslesen?

[Bummi]

gibt es nicht auf der Ebene

Delphi-Quellcode:

  TStringItem = record
    FString: string;
    FObject: TObject;
  end;

[SirThornberry]

Ist auch nicht notwendig da man als Objekt eine Klassen-Instanz hinterlegen kann die alle weiteren Informationen enthält.

[DeddyH]

Eben, entweder man castet eine Integer nach TObject (und vice versa) wie oben gezeigt, oder man erstellt tatsächlich eine Objektinstanz und fügt die dann ein. Wenn man sich nicht sicher ist, ob man ggf. später noch weitere Infos benötigt, ist man mit der 2. Variante auf der sicheren Seite, da man dann nur die Klasse dahingehend erweitern muss.

[nuclearping]

Zitat:

Zitat von AlexII (Beitrag 1188482)

Ok, muss man überlegen was mir am besten passt, und wie kann man die Tags der einzelnen Zeilen auslesen?

Einzelne "Zeilen" (Items?) haben keine "Tags". Die Komponente (TComboBox) selber hat eine "Tag"-Eigenschaft, die für dein Vorhaben aber uninteressant sein sollte.

Auf die Items kannst du mit ComboBox.Items[Index] oder auf die Objekte wie schon oben gezeigt zugreifen.

[himitsu]

Zitat:

Zitat von DeddyH (Beitrag 1188486)

Eben, entweder man castet eine Integer nach TObject (und vice versa) wie oben gezeigt, oder man erstellt tatsächlich eine Objektinstanz und fügt die dann ein. Wenn man sich nicht sicher ist, ob man ggf. später noch weitere Infos benötigt, ist man mit der 2. Variante auf der sicheren Seite, da man dann nur die Klasse dahingehend erweitern muss.

Man kann natürlich die Daten, bzw. das Datenobjekt auch wo anders ablegen (z.B. in einer DB oder einer Objektliste) und speichert in .Objects nur die ID zu den jeweiligen Daten.
Praktisch so wie es der TE eh schon vor hat. Dann sind GUI und Daten etwas voneinander getrennt.

[DeddyH]

Dann musst Du aber die Objektliste durchsuchen, um das Objekt zur ID zu ermitteln. Möglichkeiten gibt es viele, was nun "besser" ist, hängt IMO vom Einzelfall ab.

[p80286]

Zitat:

Zitat von AlexII (Beitrag 1188473)

ich hab hier ein folgendes Problem, wo ich Gedankenanstöße brauchen.
Also ich möchte aus einer DB Daten laden, in meinem Beispiel die Namen der Kunden.

Und was sricht dagegen das genauso zu tun?
vereinfacht sollte das so ablaufen:

Code:

Combobox1.Items:='select distinct name from kunden';

Erglist.strings.add(select namedaten from kunden where name=:combobox.selecteddata);
if erglist.count>1 then Namensentscheidung

Zum einen ist es nicht ungewöhnlich, daß Namen doppelt auftauchen, dann muß man Vornamen,Adresse etc. zur Unterscheidung dazu packen, und der Wähler muß diese natürlich auch sehen.

Hast Du sagen wir 10 Namen und 12 Einträge ist klar mindestens ein Name ist zweimal vorhanden.
Wenn während der Auswah ein 13 Eintrag erstellt wird und die Anzahl der unterschiedlichen Namen sich nicht ändert, oder es gibt einen neuen Namen...
Wie willst Du den dann ereichen, wenn Du mit dem Pärchen Name/ID operieren willst?

Gruß
K-H

[Jumpy]

Würde man nicht besser eine DBLookupComboBox oder wie die heißt nehmen?
Da wird doch nach Text und Value unterschieden, wobei Text der Name und Value die ID wäre.

[mkinzler]

D7 Personal hat aber keine (VCL-)Datenbankunterstützung

[Popov]

Zitat:

Zitat von AlexII (Beitrag 1188480)

Ist mir ein bisschen zu kompliziert das mit TObject

Das glaub ich dir, das täuscht letztendlich aber. Wenn man das aber paar mal gemacht, fragt man sich wieso man es früher immer anders gemacht hat. Kleines Beispiel:

Delphi-Quellcode:

type
  TInfo = class //Beispiel-Klasse
    DT: TDateTime;
  end;

procedure ListBoxItemDelete(ListBox: TListBox; Index: Integer);
begin
  if (Index < 0) or (Index > ListBox.Items.Count - 1) then Exit;
  ListBox.Items.Objects[Index].Free; //Items mit Objekte löschen
  ListBox.Items.Delete(Index);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Info: TInfo;
  p: Integer;
begin
  with ListBox1 do
  begin
    Info := TInfo.Create; //Beispiel-Objekt Erstellen
    Info.DT := Now;

    p := Items.AddObject('Datum und Zeit', Info); //Zuweisen

    if p > -1 then
      ShowMessage(Format('Aktuelle Zeit im Item %d als Objekt gespeichert.', [p]));
  end;
end;
 
procedure TForm1.ListBox1Click(Sender: TObject);
var
  DT: TDateTime;
  Info: TInfo;
begin
  with ListBox1 do
  begin
    if Count = 0 then Exit;
    if ItemIndex = -1 then Exit;
 
    Info := TInfo(Items.Objects[ItemIndex]); //Auslesen
    DT := Info.DT;

    ShowMessage('Im Objekt gespeicherte Zeit: ' + TimeToStr(DT));
  end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
var
  i: Integer;
begin
  //Objekte müssen freigegeben werden
  for i := Items.Count - 1  downto 0 do
    ListBoxItemDelete(ListBox1, i);
end;

[Sir Rufo]

Also ich halte ja wirklich nichts davon irgendwelche Informationen an ein Control zu ketten, welches für die Visualisierung zuständig ist, die für die Visualisierung nicht benötigt werden. Die haben da nichts zu suchen.

Siehe dazu auch meinen Beitrag http://www.delphipraxis.net/171223-d...-einer-id.html

[Popov]

Wird wohl so sein. Und wenn man sich mit deinem Code auseinandersetzt und ihn verinnerlicht hat, wird es wohl auch die einzige Methode sein. Trotzdem, falsch ist die andere Methode erst ein mal nicht. Ob man eine Bitmap als Objekt an die Listbox klebt oder etwas eigenes, ist zuerst gehopst wie gesprungen. Und das sage ich nicht, weil ich in den letzten Tagen paar Beispiel der Art gepostet habe. Auch wenn meine Beispiele nicht das Gelbe vom Ei waren, sie sollten nur das Prinzip zeigen, nicht die Lösung sein, es bleibt eine simple Art Daten an die Items zu heften.

Ich werde mir aber deine Lösung zu Gemüte tun. Leider kriege ich deine Beispiele schlecht geöffnet.