Ayuda con esta Función

[Ledian_Fdez]

Empezado por Mystery

esta funcion es del truco 389 de trucomania

Como pudieras facilitarme el Trucomania?
Si de algo le sirve este es mi correo: joseledian@yahoo.es
o simplemente un link donde descargarlo.

Gracias de antemano,

Salu2,
Ledian

[Ledian_Fdez]

Creo que con esta implementación gracias a la ayuda de todos ustedes la función cumple con mis especificidades.

Ahí se las dejo.

Código Delphi [-]
Function CIEsValido(CI : String) : Boolean;
var
  dia, mes, anio : Word;
begin
  Result:=True;
  if Length(CI)<>11 then
    begin
     Application.MessageBox('No. de Carnet de Identidad incompleto.' + #13 + 'Rectifique por favor.','SAF', MB_ICONERROR);
     Result := False;
     Exit;
    end;
  anio := StrToInt(Copy(CI,0,2));
  mes := StrToInt(Copy(CI,3,2));
  dia := StrToInt(Copy(CI,5,2));
  if (mes > 12) or (mes < 1) then
    begin
     Application.MessageBox('Error en el mes del Carnet de Identidad.' + #13 + 'Rectifique por favor.','SAF', MB_ICONERROR);
     Result := False;
     Exit;
    end;
  if not IsValidDate(anio, mes, dia) then
    begin
     Application.MessageBox('Error en la cantidad de dias.' + #13 + 'Rectifique por favor.','SAF', MB_ICONERROR);
     Result := False;
     Exit;
    end;

De todos modos si alguien cree que se le pudiera agregar algo mas ...

Muchas gracias

Salu2,
Ledian.

[cloayza]

Y los demas digitos que funcion cumplen dentro del Rut...

Solo estan para completar los 11?

Saludos.

[Lord Delfos]

Empezado por Ledian_Fdez

De todos modos si alguien cree que se le pudiera agregar algo mas ...

Bueno, ya que preguntás...

Te digo de onda, no es para criticar, simplemente me parece interesante, ya que estamos:

[1] A mí me parece que deberías validar antes de hacer los StrToInt... Porque si el usuario llega a poner algo que no es número... ¡pum! Se te rompe todo el programa.

[2] Tampoco pondría los MessageDialogs adentro de la función. Siempre es una buena idea que las funciones sean "independientes", es decir que no dependan de cómo trabaja el programa que las usa. Así, si mañana quiero usar la función en un programa que en vez de usar MessageDialogs para dar errores, usa otra cosa; la función me sirve igual.

[3] Eso de andar poniendo Exit por ahí... Hmmm... No es una buena práctica, hay ocasiones en las que es necesario, pero para mí en este caso sería mejor que saques los exit y unas los dos if con un else. Después de todo si el mes es incorrecto, no querés ni fijarte si el día está bien o mal.

Código Delphi [-]

---MAL---

if Mes_mal then
  begin
  Algo;
  Exit;
  end;
if Dia_mal then
  begin
  Algo;
  Exit;
  end;

--MEJOR--

if Mes_mal then
  Algo
else if Dia_mal then
  Algo;

Y, como dice el amigo cloayza, habría que ver qué hacen los otros números y si hay que agregar alguna validación más.

En fin. Saludongos.