Hola
Lo malo de vosotros los maestros es que pensais que con la mitad del dato ya tenemos nosotros los novatos.
Me parece muy bien para hacernos pensar, pero, sabremos como implementar una funcion?.
Bueno, aqui una manera de implementacion, para aquellos que como yo estamos empezando en esto.
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(NombreMes(StrToInt(Edit1.Text)));
end;
Saludos