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

No Comment

Terima Kasih Sudah berkunjung!! Di Mohon Untuk Meninggalkan Komen, untuk mempererat silaturahmi.... ^_^