Sortieren einer Liste?

[xineohp]

Delphi-Quellcode:

procedure TForm1.SortList(); 
var 
   Nav, Help: PZeiger;
   veraendert: boolean;  
begin

   repeat
   veraendert := false;

   Nav := Root; 
   while Nav^.Next <> nil do 
   begin 
      if Nav^.Name > Nav^.Next^.Name then 
      begin 
         Help := Nav; 
         Nav :=  Nav^.Next; 
         Nav^.Next := Help; 
         veraendert := true;
      end; 
   Nav := Nav^.Next; 
   end; 
   
   until not veraendert;

end;

so müsste es funktionieren. Nennt sich Bubblesort.
siehe auch: delphi-source

phoenix