Mengganti Nama Hari Dengan Bahasa Indonesia [Delphi]

Mengganti Nama Hari Dengan Bahasa Indonesia [Delphi] Rahman Surya Praja Kamis, 09 Juni 2011 No Comment

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.

by Jillur Rahman

Jillur Rahman is a Web designers. He enjoys to make blogger templates. He always try to make modern and 3D looking Templates. You can by his templates from Themeforest.

Follow him @ Twitter | Facebook | Google Plus

by Rahman Surya Praja

Freelance Forever

Follow him @ Twitter | Facebook | Google Plus

Tags: Delphi / source code / Tutorial