Beiträge durchsuchen

Quersumme errechnen

Mit Hilfe dieser Funktion kann man die Quersummer einer Zahl errechnen. Die Quersummer erhält man, wenn man alle Ziffern addiert.

function DigitSum(i : Integer): Integer;
var
  p: PChar;
begin
  Result := 0;
  p := PChar(IntToStr(i));
  while (p^  #0) do
  begin
    Result := Result + StrToInt(p^);
    Inc(p);
  end;
end;

Aufgerufen werden kann die Funktion Beispielsweise folgendermaßen:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('Die Quersumme von 122 ist ' + IntToStr(DigitSum(122)));
end;

Das Ergebnis wäre hier 5.