Arsip: Menampilkan nama bulan dalam bahasa Indonesia dalam fungsi "FormatDateTime"

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls;
type
TForm1 = class(TForm)
DateTimePicker1: TDateTimePicker;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
// English:
  //   this variable (\"namaBulan\") is used to replace month names' string
  //   from English into Indonesian
  // this variable is used in \"replaceLongMonthNamesWithIndonesian\" procedure

// dipakai untuk menggantikan string nama bulan dr bhs Inggris ke Indonesia
  // digunakan dalam procedure \"replaceLongMonthNamesWithIndonesian\"
  namaBulan: array[1..12] of string =
( 'Januari', 'Februari', 'Maret', 'April', 'Mei', 'Juni', 'Juli',
'Agustus', 'September', 'Oktober', 'Nopember', 'Desember');
// You can change the string constant above with your language choice

implementation
{$R *.dfm}
procedure replaceLongMonthNamesWithIndonesian;
var i : integer;
begin
for i:=1 to High(namaBulan) do
LongMonthNames[i] := namaBulan[i];
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
replaceLongMonthNamesWithIndonesian;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessageFmt(
'Hari ini tanggal (dd mmmm yyyy) : %s',
[FormatDateTime('dd MMMM yyyy', DateTimePicker1.Date)]);
end;
end.
-------------------------------------
// end of the code