Delphi-Quellcode:
function QuerSumme(strNumber :
String): Longint;
var
chTmp : Char;
// Einzelnes Zeichen des Textes
i,
// Laufvariable für die Schleife
iLen,
// Länge des Textes
iTmp,
// Zwischenspeicher für den Zahlwet der einzelnen Zahlen
iSumme : Longint;
// QuerSumme
begin
// Summe auf Null setzen
iSumme := 0;
// Länge des Text ermitteln
iLen := Length(strNumber);
// Try except zur Sicherheit, den bei einem Text wie :'123A' würde ohne
// try except das Programm abstürzen.
try
// jedes Zeichen des Textes einzelnd in eine Zahl umwandeln und summieren
For i:= 1
to iLen
do begin
// das Zeichen an der Position i im Text ermitten
chTmp := strNumber[i];
iTmp := StrtoInt(chTmp);
// Wert auf die Summe addieren
inc(iSumme,iTmp);
// ist das Gleiche wie : iSumme := iSumme + iTmp; nur schneller
end;
result := iSumme;
except
// falls ein Fehler beim umwandeln vom Text in eine Zahl auftritt wird
// dieser hier abgefangen. Je nach Compilereinstellungen siehst Du im
// in Delphi noch eine Exception, aber in der Compilierten Exe wird keine
// Exception mehr ausgegeben
result := 0;
end;
end;
Das hilft dir mit Sicherheit weiter.
Grüße
capo