Funciones de validación bien hechas

[noob]

Siempre se dice que una función debe de hacer una única cosa, por ejemplo si vamos a validar que un dato introducido por el usuario sea un número decimal podemos hacer:

1)

Código Delphi [-]
function PrecioValido(Precio: string): boolean;
var
  Importe: extended;
begin
  Result := False;  
  if TryStrToFloat(Precio, Importe) then
    Result := True
  else
    ShowMessage('El precio no es válido');
end;

o podemos hacer:

2)

Código Delphi [-]
function PrecioValido(Precio: string): boolean;
var
  Importe: extended;
begin
  Result := False;
  if TryStrToFloat(Precio, Importe) then
    Result := True;
end;

y luego llamar al la función así:

Código Delphi [-]
if not PrecioValido(Precio) then
  ShowMessage('El precio no es válido');

¿Cuál de las dos formas sería la correcta?

Saludos.

[marcoszorrilla]

Yo utilizaría la primera, puesto que la función lo único que va a hacer es validar, sino es válido el dato, no solo debe retornar el "falso" sino también dar el mensaje correspondiente.

Si llamamos a esa función desde 50 sitios de nuestro programa nos ahorramos 49 ShowMessage.

Un Saludo.

[Neftali [Germán.Estévez]]

¿Y si en algun sitio no interesa que devuelva mensaje?
Por ejemplo, dentro de una clase realizando cálculos.

Otra opción podría ser esta:

Código Delphi [-]
function PrecioValido(Precio: string): boolean;
var
  Importe: extended;
begin
  Result := False;  
  if TryStrToFloat(Precio, Importe) then
    Result := True
  else
    raise EConvertError.Create('El precio no es válido');
end;

Si hacemos un proceso que calcula 200 (o 500 o 1000) precios y dentro se hacen conversiones (donde se valida), tal vez no interese que salten 39 mensajes si hay 39 errores, sino que al final se pueda decir: "30 precios no se han calculado correctamente" o similar.