zum sortieren( kopiert und verschoben etc) wird, habe ich das - langsame, aber stabile ( reicht für den anfang) - bubblesort genutzt.
ich habe jetzt das ganze versucht, über positions indizes laufen zu lassen, damit nie die gesamte tabelle verändert wird, sondern lediglich indizes geändert werden.(so wird es in wiki ja als evrbesserung dargestellt)
Am ende wird die neue anordnung anhand der vergebenen indizes in eine neue tabelle eingetragen...
... soviel zur idee, in der umsetzung des decoders kommt es dabei zu einem stack-überlauf,falls nicht nur gleiche werte in der tabelle. liegt wohl an einer nicht terminierten schleife???
Delphi-Quellcode:
function tform1.bubblesort(ar: arr):arr;
var i:int64;
c:integer;
br:arr;
begin
i:=1;
mathe:=tmathe.create;
while i<length(ar) do
begin
ar[i].position:=i;
i:=i+1;
end;
i:=1; //über indizes sortieren
while i<length(ar) do
begin
if mathe.Vergleich(ar[i-1].numbers,ar[i].numbers)>0
then
begin
c:=ar[i-1].position;
ar[i-1].position:=ar[i].position;
ar[i].position:=c;
end;
i:=i+1;
end;
i:=1;
br:=ar;
while i<length(br) do
begin
ar[i].text:=br[ar[i].position].text;
ar[i].numbers:=br[ar[i].position].numbers;
i:=i+1;
end;
i:=1; //überprüfen
while i<length(ar)do
begin
if vergleich(ar[i-1].numbers,ar[i].numbers)=0
then bubblesort(ar)
else i:=i+1;
end;
result:=ar;
end;