Quersum.-Berechnung

[capo]

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