Listbox auslesen

[Hobbycoder]

Ich hätte da auch noch eine Möglichkeit:

Delphi-Quellcode:

procedure xyz(SuchStr: string);
var
  i: Integer;
  sl: TStringList;
begin
  sl:=TStringList.Create;
  try
    sl.assign(Listbox1.items);
    for i:=0 to sl.count-1 do
      if sl[i].contains(SuchStr) then  //oder if pos(SuchStr, SL[i])>0 then
      begin
        ListBox2.Items.Add(sl[i]);
        ListBox1.items.delete(ListBox1.items.IndexOf(sl[i]));
      end;
  finally
     sl.free;
  end;
end;

So würde die Reihenfolge von ListBox2 nicht ungekehrt.