Sortieren in Listbox

[Yader22]

Delphi-Quellcode:

for j:=i+1 to Anzahl do
   begin
   if((Artikelliste[i].Bestand*Artikelliste[i].Preis)
    <((Artikelliste[j].Preis*Artikelliste[j].Preis)))
      then
      begin
      tauschen:=Artikelliste[i];
      Artikelliste[i]:=Artikelliste[j];
      Artikelliste[j]:=tauschen;

[edit=Luckie]Delphi-tags ergänzt. Bitte beim nächsten Mal selber machen. Mfg, Luckie[/edit]