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ß