Eine Rekursion ist bei einer einfach verketteten Liste überhaupt nicht nötig. Hier reicht eine einfache
Schleife die die Liste durcharbeitet und den größten Wert ermittelt. Ob die Liste sortiert ist oder nicht,
ist dabei auch nicht wirklich relevant.
Pseudo-Code:
Delphi-Quellcode:
function ListMax:Integer;
var
PWork : TReflist;
begin
result := 0;
pWork := PListenAnfang;
while (pWork <> PListenEnde) do
begin
if (pWork^.info > result) then
result := pWork^.info;
pWork := pWork^.next;
end;
if (PWork^.info > result) then
result := pWork^.info;
end;
Kleiner Tip.....gibt da ein Tutorial zum Thema Zeiger und Zeigerketten
http://www.delphipraxis.net/112240-z...-tutorial.html