einzelne Zeichen eines Strings einlesen

[DeddyH]

Versuch es mal damit (nur schnell dahingetippselt):

Delphi-Quellcode:

function Quersumme(const s: string): integer;
var i: integer;
begin
  Result := -1;
  if not TryStrToInt(s,Result) then
    exit;
  Result := 0;
  for i := 1 to Length(s) do
    Result := Result + StrToInt(s[i]);
end;