Frage zum Sortieren einer verketteten Liste

[mytar]

Noch eine Änderung:

Delphi-Quellcode:

var 
  changed: boolean; 
  nav, help1, help2: tListenElement; 
begin 

  changed := False;

  repeat //<<<     
    nav := root; 
    while Assigned(nav) and Assigned(nav^.next) do //<<<
    begin 
      if nav^.name > nav^.next^.name then 
      begin 
        help1 := nav;                     
        nav := nav^.next;                
        help2 := nav^.next; 
        nav^.next := nav^.next^.next; 
        help2^.next := help1; 
        
        changed := True; 
        if help1 = root then
         root := nav;   
      end; 
      nav := nav^.next;                 
    end; 
  until not changed; //<<<

end;