哪位大哥帮忙如何实现一个整数各个数字位的相加啊～～～急用～～！～～

Question

哪位大哥帮忙如何实现一个整数各个数字位的相加啊～Sample:24
出来结果怎么样才能变成2+4=6啊??谢谢了

Answer 1

function GetIntSum(aValue: Integer): Integer;
var
  i: Integer;
  s: string;
begin
  result := 0;
  s := IntToStr(24);
  for i := 1 to Length(s) do
    result := result + StrToInt(s[i])
end;

Answer 2

weizi2000(秋风啊) 好厉害啊！

Answer 3

其实上面没写好，楼主可改一下做一个函数调用；我写时看了一下你的比如就把24写进去了，呵呵；你可改其为s := IntToStr(aValue);然后在其它地方调用就好了，很简单的一个函数

Answer 4

//方法很多，这样简单的函数还是自己学着写好，否则什么时候才能提高呀？～～function GetIntSum(aValue: Integer): Integer;
begin
  Result := 0;
  while aValue > 0 do begin
    Result := Result + aValue mod 10;
    aValue := aValue div 10;
  end;
end; { GetIntSum }