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

  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?

[nuclearping]

Zitat von AlexII:

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

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?

[Popov]

Zitat von AlexII:

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

[p80286]

Zitat von AlexII:

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