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

markieren

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

Objekt aus Listbox auslesen

Objekt aus Listbox auslesen

Forumregeln