Intentando con Try ....

[marcoszorrilla]

Para llegar al milenario
un millar de mensajes
es necesario.


Enhorabuena Román.

Un Saludo.

[roman]

Empezado por marcoszorrilla

Para llegar al milenario
un millar de mensajes
es necesario.

Je, je, Jefe de máquinas. Entré al milenario cuando los requisitos no eran tan exigentes . ¿Ahora qué, habrá promoción?

// Saludos

[Angel]

el problema está en que tu no "atrapas" la excepción, con lo cual tiene que ser delphi quien lo haga, para ello prueba lo siguiente

 
procedure TfrmSolicitud.edFnacExit(Sender: TObject);
var
      Hoy : TDateTime;
      Year, Month, Day: Word;
begin
   try
   begin
      Hoy := strtodate(edFnac.text); // cargo Hoy con la cadena del MaskEdit
      DecodeDate(Hoy, Year, Month, Day); // intento la decodificación
      Editboxsiguiente.setfocus; // si la fecha es correcta y no ocurre error pasa siguiente control.

   end;
   except 
     // Si ocurre un error :
   begin
     edFnac.setfocus; // escribir nuevamente la fecha
     raise exception.create('Fecha erronea....'); // mensaje de error al usuario
   end;
end;

[Alfredo]

Gracias amigos, voy a intentar las distintas propuestas y el hilo sugerido.

Con respecto a las Rx, las tengo pero me genero un error al interntar instalarlas en mi version de delphi (v2.0) y desisti.

gracias...

[__cadetill]

Empezado por Alfredo

Con respecto a las Rx, las tengo pero me genero un error al interntar instalarlas en mi version de delphi (v2.0) y desisti.

Existen als RX para Delphi 2??? y yo sin saberlo

[roman]

Empezado por cadetill

Existen als RX para Delphi 2??? y yo sin saberlo

Supongo que no existen; de ahí que no pueda instalarlas.

// Saludos

[Alfredo]

En su momento baje 2 archivos: 1 para la version 7 y otro para las versiones anteriores; bueno, en el readme indicaba como instalarlas en cada version de delphi. Mañana les indicaria donde las consegui y el error que me presentó. Aunque la verdad es que quisiera usar una version mas actualizada, pero con el problema del dolar aqui en venezuela no puedo. He tratado de contactar en el mercado local, si fuera posible a alguien que me vendiera una versión que ya no use, pero son muy pocos los programadores con delphi en venezuela, por lo menos en Valencia.

Por otra parte, he escuchado que "delphi se hizo con delphi"; si esto es asi, puede alguien decirme como haceder a una funcion de delphi?. Es decir, me gustaria saber como codificaron la funcion IsLeapYead(). (Esa es una de las razones por la que paso calenteras cuando pruebo codigo propuesto por los colegas en mi version de delphi)

Gracias por contestar, y valga por favor la pregunta. Si deciden que mejor añada un hilo, avisenme...