Mengganti Nama Hari Dengan Bahasa Indonesia [Delphi]

Kali ini saya akan membahas tentang membuat Hari menggunakan Bahasa Indonesia, mungkin untuk orang awam delphi seperti saya sulit mengimplementasikannya....

Caranya Cukup Menambahkan Procedure !

1. Buka Delphi nya, dan akan tampil form.. (hihi)
2. Tambahkan Label dari Pallete Standard

Sebelumnya menambahkan Array Hari-nya dulu :

Var
namaHari: array[1..7] of string = ( 'Ahad', 'Senin', 'Selasa', 'Rabu', 'Kamis', 'Jum'+char(39)+'at', 'Sabtu');

Setelah itu tambahkan Procedure Hari-nya

Procedure hari;
Var i : integer;
Begin
 for i:=1 to High(namaHari) do
  LongDayNames[i] := namaHari[i];
end;

Untuk Script Keseluruhan

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  namaHari: array[1..7] of string =
  ( 'Ahad', 'Senin', 'Selasa', 'Rabu', 'Kamis', 'Jum'+char(39)+'at', 'Sabtu');

implementation

{$R *.dfm}

Procedure hari;
Var i : integer;
Begin
 for i:=1 to High(namaHari) do
  LongDayNames[i] := namaHari[i];
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
hari;
Label1.Caption := FormatDateTime ('dddd, dd/mm/yy', Date( ) );

end;

end.