Найти модуль суммы

[qpuTuJlb]

Доброго времени суток, нужно найти модуль суммы в строке. Вроде бы все правильно сделал, а находит все равно только сумму без модуля.

var
i,sum:integer;
s:string;
begin
s:=Edit1.Text;
sum:=0;
for i:=1 to length(s) do begin
sum:=sum+strtoint(s[i]);
end;
Showmessage(inttostr(abs(sum)));
end;

[Аватар]

И что по вашему это должно вернуть? Если в строке только цифры и вернет ваш модуль и без abs-а, если есть любой другой символ, то исключение будет

[superedward]

Может, автор имел в виду сумму модулей:

var
i,sum:integer;
s:string;
begin
s:=Edit1.Text;
sum:=0;
for i:=1 to length(s) do begin
sum:=sum+Abs(StrToInt(s[i]));
end;
ShowMessage(IntToStr(sum));
end;

[Аватар]

Мужики, ну чем abs от неотрицательного числа отличается просто от этого числа? Что в лоб, что по по лбу

[Yurk@]

тогда уж так

var
  i, sum, L : integer;
  s : string;
begin
  s := Edit1.Text;
  sum := 0;
  L := Length(s);
  for i := 1 to L do
    sum := sum + StrToIntDef(s[i], 0);
  ShowMessage(IntToStr(sum));

[IliaIT]

аватар прав.
вы гляньте как числа смотрятся в алгоритме, точнее берутся. один символ = одно число, а отрицательное это как минимум 2 символа. так что подход по меньшей мере странный для разрезания строки на числа.
так что тут всегда будут положительные числа или ошибка(исключение).
так что qpuTuJlb менять подход надо к числам и искать разделитель например пробел.