Übersetzung C -> Delphi: Verkürzte if-Bedingung

[jottkaerr]

Dann nimm doch ein Argument, dass groß genug ist:

Delphi-Quellcode:

program tso;

{$APPTYPE CONSOLE}
{$R-}

uses
  Classes;

function Sum(const Num: Cardinal): Cardinal;
begin
  if Num = 0 then
    Result := 0
  else
    Result := Num + Sum(Num - 1);
end;

begin
  Writeln(Sum(MaxInt));
end.

jkr