Suma de dígitos primos - Simplificar código

[WkaymQ48]

Que tal así:

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));

[Subliminalz]

Si amigo, creo que la mejor opcion era ponerle los numeros primos y que me ignore todos los demas, jeje... esta genial el codigo, le puse un begin al Edit1 y ya me funciona, muchas gracias WkaymQ48...

[ecfisa]

Hola Subliminalz.

Sólo como agregado, si quisieras obtener la suma a partir de un valor numérico:

Código Delphi [-]
function SumarDigitosPrimos(Numero: Integer): Integer;
var
  i, Digito: Integer;
begin
  Result := 0;
  while Numero > 0 do
  begin
    Digito := Numero mod 10;
    if Digito in [1,2,3,5,7] then
      Inc(Result, Digito);
    Numero := Numero div 10;
  end;
end;

// llamada
...
begin
  ShowMessage(IntToStr(SumarDigitosPrimos(12357)));
end;

Saludos.