Contents

function DigitSum(AValue: Int64): Integer;
begin
  if AValue mod 10 = AValue then
    Result := AValue
  else
    Result := (AValue mod 10) + DigitSum(AValue div 10)
end;

Version data entries

163 entries across 163 versions & 1 rubygems

Version	Path
trackler-2.2.1.98	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.97	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.96	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.95	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.94	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.93	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.92	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.91	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.90	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.89	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.88	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.87	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.86	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.85	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.84	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.83	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.82	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.81	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.80	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.79	tracks/delphi/docs/SNIPPET.txt