Código Delphi [-]procedure Gracias; begin if Respuesta_a_Mensaje = TRUE then showmessage('Ojalá que te sirva') else showmessage('Gracias por responder... :-)'); end; // (c) unreal4u
procedure Gracias; begin if Respuesta_a_Mensaje = TRUE then showmessage('Ojalá que te sirva') else showmessage('Gracias por responder... :-)'); end; // (c) unreal4u