Código Delphi [-] function Suma(Str: String): Integer; var i: Integer; begin Result:= 0; for i:= 1 to Length(Str) do if Str[i] in ['1','2','3','5','7'] then Result:= Result + StrToInt(Str[i]); end; // Por ejemplo Edit1.Text:= IntToStr(Suma(Edit1.Text));
function Suma(Str: String): Integer; var i: Integer; begin Result:= 0; for i:= 1 to Length(Str) do if Str[i] in ['1','2','3','5','7'] then Result:= Result + StrToInt(Str[i]); end; // Por ejemplo Edit1.Text:= IntToStr(Suma(Edit1.Text));