Hier meine Prozedur:
Delphi-Quellcode:
procedure TForm1.SortList();
var
Loop1, Loop2: Integer;
Nav : PZeiger;
Help: PZeiger;
begin
Nav := Root;
for Loop1 := 1 to 4 do
begin
for Loop2 := Loop1 to 4 do
begin
if Nav^.Name > Nav^.Next^.Name then
begin
Help := Nav;
Nav := Nav^.Next;
Nav^.Next := Help;
end;
Nav := Nav^.Next;
end;
Nav := Root;
end;
end;
Aber es funktioniert nicht.
Die Zahl 4 in der FOR-Schleife ist die Anzahl der Elemente
Wo liegt der Fehler?
Bräuchte man noch einen 2. Hilfszeiger?