Registriert seit: 7. Jan 2006
Ort: Pulheim Brauweiler
464 Beiträge
Delphi 2010 Professional
|
Re: Übersetzung C -> Delphi: Verkürzte if-Bedingung
10. Mär 2008, 10:17
Delphi-Quellcode:
function Sum(uNum: Cardinal):Cardinal;
begin
if uNum=0 then
result := 0
else
result := uNum + Sum(uNum - 1);
end;
|