Hi Leute, ich will eine einfach verkettete Liste nach Namen sortieren.
Aber wo liegt der Fehler???
Delphi-Quellcode:
procedure TForm1.SortList();
var
Nav, Help: PZeiger;
begin
Nav := Root;
while Nav^.Next <> nil do
begin
if Nav^.Name > Nav^.Next^.Name then
begin
Help := Nav;
Nav := Nav^.Next;
Nav^.Next := Help;
end;
Nav := Nav^.Next;
end;
end;
Die Liste ist später durcheinander.
Kann mir jemand helfen?
Danke...