Objekt aus Listbox auslesen

[khh]

Hallo zusammen,
mit
artauswahlListBox.Items.AddObject(fzusatzartikel.B ezeichnung, fzusatzartikel);

fülle ich eine Listbox.
Der Anwender kann nun per drag and drop einzelne Artikel in eine zweite Listbox kopieren.

mit:
CopySelected(artauswahlListBox, artbestandListBox.Items);

Code:

procedure CopySelected(List: TCustomListBox; Items: TStrings);
var
  I, ipos: Integer;
  tmp:string;
  test: integer;
begin

  ipos := Items.Count; // Einfügeposition (am Ende)
  // debug
   test := List.Items.Count;
  for I := List.Items.Count - 1 downto 0 do
    if List.Selected[I] then
    begin
      Items.InsertObject(ipos, List.Items[I], List.Items.Objects[I]);
    //  List.Items.Delete(I);
    end;
end;

wird der Eintrag in die zweite Listbox kopiert.


mit:
test := artbestandListBox.Items.Strings[i];

komme ich nur an die Artikelbezeichnung.
Wie komme ich an das ganze Objekt das auch die artikel_id enthält.

Steh mal wieder grad auf der Leitung :-(

Danke Gruss KHH

[DeddyH]

Das müsste doch in artbestandListBox.Items.Objects[i] stehen, oder irre ich mich?

[khh]

ja, das stimmt mit:
Fsubartikel := artbestandListBox.Items.Objects[i] ;

hab ich das Objekt in Fsubartikel. Aber wie komm ich an die id?

[DeddyH]

Da wirst Du casten müssen.

Delphi-Quellcode:

(artbestandListBox.Items.Objects[i] as TZusatzartikel).id

[khh]

ich danke dir, so funktioniert es :-)

Du bist der Beste:-D