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

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

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

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

Da wirst Du casten müssen.
(artbestandListBox.Items.Objects[i] as TZusatzartikel).id

ich danke dir, so funktioniert es

Du bist der Beste