Daten mit ID in eine ComboBox laden?

[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?

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

[nuclearping]

Zitat von AlexII:

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.

[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;