Zitat von
SirThornberry:
Delphi-Quellcode:
function Sum(Cardinal uNum): Cardinal;
begin
result := IfThen(uNum = 0, 0, uNum + Sum(uNum - 1));
end;
du siehst in Delphi sieht es auch nicht besser aus wenn man dort die verkürzte Version nimmt (math in den uses vorrausgesetzt)
Geht aber erst ab BDS2006 oder? Und Gott sei dank, scheint sich das noch nicht durchgesetzt zu haben bei den Delphi-Programmierern.