Daten mit ID in eine ComboBox laden?

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

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

[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