Sortieren einer Liste?

[Chris P]

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...

[xineohp]

der Sortieralgorithmus ist unvollständig. Wenn mich nicht alles täuscht fehlt die zweite Schleife.

phoenix

[Chris P]

Zweite Schleife??? Soweit ich mich erinnere geht es auch mit einer.

Könntest du mir helfen?

[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

[Chris P]

Das sieht schon ma gut aus!

Werds ma probieren, ich danke dir! :-D