Nombre del mes

[ecfisa]

Hola NuncaMas.

No conozco ninguna función predefinida en Delphi que haga eso,
quizá no la hayan incorporado por la simplicidad de la confección
del código...

Código Delphi [-]
function NombreMes(mes: Integer): string;
const
  MESES: array[1..12] of string = ('enero','febrero','marzo','abril','mayo',
        'junio','julio','agosto','septiembre','octubre','noviembre','diciembre');
begin
  Result:= MESES[mes];
end;

Saludos.

[[Caral]]

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

[ecfisa]

Empezado por Caral

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?.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage(NombreMes(StrToInt(Edit1.Text)));
end;

¿Ves que no soy el único que les dá todo echo ?

Saludos.

[Casimiro Noteví]

huy, huy, huy... eso no vale, así cualquiera