Buscar por:

Colocando o mês por extenso

Código

Unit Unit1; 

interface 

uses 

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls; 

type 

TForm1 = class(TForm) 

Button1: TButton; 

Label1: TLabel; 

procedure Button1Click(Sender: TObject); 

function MesExtenso( Mes:Word ) : string; 

private 

{ Private declarations } 

public 

{ Public declarations } 

end; 

var 

Form1: TForm1; 

implementation 

{$R *.DFM} 

function TForm1.MesExtenso( Mês:Word ) : string; const meses : array[0..11] of PChar = ('Janeiro', 'Fevereiro', 'Março', 'Abril', 'Maio', 'Junho', 'Julho', 'Agosto', 'Setembro','Outubro', 'Novembro', 'Dezembro'); 

begin 

result := meses[mes-1]; 

End; 

procedure TForm1.Button1Click(Sender: TObject); 

begin 

label1.Caption := MesExtenso(3); 

end; 

end.