Как посчитать сумму цифр числа-строки?

Delphi FAQ >> Алгоритмы

function SumDig(n: String): Longint;
var
  i, z, l: Byte;
begin
  result := 0;
  z := ord('0');
  l := length(n);
  for i := 1 to l do
    result := result + ord(n[i]) - z;
end;

---

Для Астраханцев появилась отличная возможность получить образование за рубежом. Диплом будет высоко котироваться не только в России, но и в Европе, заодно у студента будет хорошая языковая практика.