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.38	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.37	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.36	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.35	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.34	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.33	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.32	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.31	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.30	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.29	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.28	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.27	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.26	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.25	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.24	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.23	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.22	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.21	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.20	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.19	tracks/delphi/docs/SNIPPET.txt