kann es sein, dass du den Tauschvorgang jedesmal wieder rückgängig machst? Ich glaube, die zwei auskommentierten Zeilen sind falsch/überflüssig.
Zitat von
Chris P:
Delphi-Quellcode:
procedure TForm1.SortList();
var
Loop1, Loop2: Integer;
Nav : PZeiger;
Help: PZeiger;
begin
Nav := Root;
for Loop1 := 1 to 4 do
begin
for Loop2 := Loop1 to 4 do
begin
if Nav^.Name > Nav^.Next^.Name then
begin
Help := Nav;
Nav := Nav^.Next;
Nav^.Next := Help;
end;
// Nav := Nav^.Next;
end;
// Nav := Root;
end;
end;
EDIT: ich befürcht ich hab schon wieder Quark geschrieben
EDIT2: ich glaub ich muss mal ein paar Minuten nachdenken.