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..