Tarih Çıkartma

[erdogan_ozkaya]

Arkadaşlar aşağıdaki kod ile '11.2010' yazabiliyorum fakat benimistediğim 'Kasım' '2010' yazması yani sadece ay'ı rakam değilde harfle yazssın Nasıl Yapabilirim ?

Kod: Tümünü seç

procedure TForm1.FormCreate(Sender: TObject);
var
  Ay : TSystemTime;
  Yil : TSystemTime;
begin

  GetLocalTime(Ay);
  GetSystemTime(Yil);
 Edit1.Text:=(IntToStr(Ay.wMonth+1) + '.' +
                  IntToStr(Yil.wYear) + ''  );
end;

[Lost Soul]

Kod: Tümünü seç

procedure TForm1.FormCreate(Sender: TObject);
const
aylar: array [1.. 12] of String=
    ('Ocak','Şubat','Mart','Nisan','Mayıs','Haziran','Temmuz','Ağustos','Eylül','Ekim','Süleyman','Aralık');
var
  Ay : TSystemTime;
  Yil : TSystemTime;
begin

  GetLocalTime(Ay);
  GetSystemTime(Yil);
Edit1.Text:=(aylar[Ay.wMonth+1] + '.' +
                  IntToStr(Yil.wYear) + ''  );
End;