QuickUnsort

[morbo]

Zitat von ims:

hi morbo
einfach mal so auf die schnelle, sollte funktionieren:

listbox1: deine sortierte liste
listbox2: das ergebnis

Delphi-Quellcode:

procedure unsort;
 var
  i : Integer;
begin
  form1.ListBox2.Clear;
  randomize;
  for i := 0 to form1.ListBox1.Items.Count - 1 do
    begin
      form1.ListBox2.Items.Add(form1.ListBox1.Items.Strings[random(form1.ListBox1.Items.Count)])
    end;
end;

wie gut diese prozedur allerdings "unsortet" weiss ich nicht. vielleicht genügts dir ja, oder hilft sonst weiter.


gruss, dave


//Edit: deine ist natürlich viel schöner und kommt ohne zus. komponenten aus..

Hi vielen Dank für den Vorschlag,
ohne das ich es getestet habe,
sieht es so aus das einige Enträge nach der dem "unsort" doppelt und andere danach nicht mehr vorkommen können.

Gruß