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.159	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.158	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.157	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.156	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.155	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.154	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.153	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.152	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.151	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.150	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.149	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.148	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.147	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.146	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.145	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.144	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.143	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.142	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.141	tracks/delphi/docs/SNIPPET.txt
trackler-2.2.1.140	tracks/delphi/docs/SNIPPET.txt