Thema: Delphi Sortieren einer Liste?

Einzelnen Beitrag anzeigen

Chris P

Registriert seit: 8. Mär 2004
230 Beiträge
 
Delphi 7 Enterprise
 
#1

Sortieren einer Liste?

  Alt 13. Apr 2004, 21:37
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...
  Mit Zitat antworten Zitat