Liste sortieren

[mr.dandy]

Zitat von Relicted:

diesen algo funktionsfähig zu machen?

Nein, eine Funktion zu programmieren, die Listen sortiert.
HAbe es nochmal probiert:

Delphi-Quellcode:

procedure TForm1.Button7Click(Sender: TObject);
Var zcache:pointer;
    i: integer;
    s:string;
begin
   zcache:=nil;
   for i:=1 to 1 do begin
     zcache := data_list;
     while zcache^.next <> nil do begin
        if ord(zcache^.content[1]) > ord(zcache^.next^.content[1]) then begin
           s:= zcache^.content;
           zcache^.content:= zcache^.next.content;
           zcache^.next.content:=s;
        end;
     zcache := zcache^.next;
     end;
   end;
   edit2.Text:=show_list(zcache); //Hier wird die Liste ausgegeben
end;

Aber es gibt immer nur das "höchste" Element der Liste aus