c Builder Quersumme bilden

[fred.reichbier]

Ich kapier den Code auch nicht,
aber in Delphi würde ich das so machen:

Delphi-Quellcode:

function QuerSumme (Zahl: Integer);
var p: String; r,i: Integer;
begin
p := Inttostr(Zahl);
r := 0;
for i := 1 to length(p) do
begin
r := r + Strtoint(Copy(p,i,1));
end;
result := r;
end;

Ich glaube in C++ geht das so:

Code:

int i,Zahl,Quersummenzahl;
Zahl=0;
for(i=1; i<length(QuerSummenZahl); i++)
  Zahl = Zahl + StrToInt(Copy(IntToStr(QuerSummenZahl),i,1));

QuerSummenZahl muss dann die Zahl zugewiesen kriegen,
aus der die QuerSumme errechnet werden soll.
Zahl ist dann die Quersumme.
Falls etwas nicht klappt: Versuche mal length groß zu schreiben oder
andere Befehle kein bzw. groß zu schreiben,
mfg
fred