da yang tau ga caranya merubah seting waktu di program delphi menjadi format indonesia seperti 'Friday, 06 January 2006' menjadi 'Jumat, Januari 2006', terima kasih sebelumnya udah membantu saya

procedure TForm1.FormCreate(Sender: TObject);
begin
  LongMonthNames[1] := 'Januari';
  LongMonthNames[2] := 'Februari';
  LongMonthNames[3] := 'Maret';
  LongMonthNames[4] := 'April';
  LongMonthNames[5] := 'Mei';
  LongMonthNames[6] := 'Juni';
  LongMonthNames[7] := 'Juli';
  LongMonthNames[8] := 'Agustus';
  LongMonthNames[9] := 'September';
  LongMonthNames[10] := 'Oktober';
  LongMonthNames[11] := 'November';
  LongMonthNames[12] := 'Desember';
  LongDayNames[1] := 'Senin';
  LongDayNames[2] := 'Selasa';
  LongDayNames[3] := 'Rabu';
  LongDayNames[4] := 'Kamis';
  LongDayNames[5] := 'Jumat';
  LongDayNames[6] := 'Sabtu';
  LongDayNames[7] := 'Minggu';
end;

contoh pemakaian

procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := FormatDateTime('ddd, dd mmmm yyyy', Date);
end;

Mas didit thank's before setelah dicoba ternyata krenz juga nech procedure... nACH MAS DIDIT, kira2 klu kita bikin tanggal ditable dengan type Text dan dan display format seperti yang mas didit bikin,,, sekarang gimana klu terdapat dua buat tanggal, asumsi Ada TGl Pemesanan Tiket ( edit1 ) dan ada Tanggal Keberangkatan (edit2), so buat Tanggal keberangkatan klu Mau Display Formatnya Seperti itu,gimana...generatenya otomatis example...misal dimakuan 1...31 dia langsung otomatis jadi 1...,senin,01 januari 2006...Klu nga bisa nga apa2 diriku cuma mau nanya aja wakakakakakak Biar forum jadi rame..hehehehehe

pro mas saysansay: bisa mas. tp ada beberapa syarat ya. karena pengennya cuman masukin tanggal trus format otomatis (klu ngk salah event OnExit formatting nya) berarti informasi Bulan dan Tahun harus tersedia dahulu. ini solusi cara biasa (hasil formattingnya ditaruh di komponen lain): --daftar komponen yg dipakai--

    edtTanggal: TEdit;
    cmbBulan: TComboBox;
    edtTahun: TSpinEdit;
    lbTanggal: TLabel;

--kode--

procedure TForm1.FormCreate(Sender: TObject);
var
  i: byte;
begin
  LongMonthNames[1] := 'Januari';
  LongMonthNames[2] := 'Februari';
  LongMonthNames[3] := 'Maret';
  LongMonthNames[4] := 'April';
  LongMonthNames[5] := 'Mei';
  LongMonthNames[6] := 'Juni';
  LongMonthNames[7] := 'Juli';
  LongMonthNames[8] := 'Agustus';
  LongMonthNames[9] := 'September';
  LongMonthNames[10] := 'Oktober';
  LongMonthNames[11] := 'November';
  LongMonthNames[12] := 'Desember';
  LongDayNames[1] := 'Senin';
  LongDayNames[2] := 'Selasa';
  LongDayNames[3] := 'Rabu';
  LongDayNames[4] := 'Kamis';
  LongDayNames[5] := 'Jumat';
  LongDayNames[6] := 'Sabtu';
  LongDayNames[7] := 'Minggu';
  DateSeparator := '-';
  cmbBulan.Clear;
  for i := 1 to 12 do
    cmbBulan.Items.Add(LongMonthNames[i]);
  cmbBulan.ItemIndex := 0;
end;
procedure TForm1.edtTanggalKeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ) then
    Key :=#0;
end;
procedure TForm1.cmbBulanKeyPress(Sender: TObject; var Key: Char);
begin
  Key :=#0;
end;
procedure TForm1.edtTanggalExit(Sender: TObject);
var
  dDate: TDateTime;
begin
  if TryStrToDate(edtTanggal.Text + '-' + IntToStr(cmbBulan.ItemIndex+1) +
    '-' + edtTanggal.Text, dDate) then
    lbTanggal.Caption := FormatDateTime('dddd, dd mmmm yyyy', dDate)
  else
    lbTanggal.Caption := 'invalid date';
end;

@masdi2t saya setuju juga cara mas masdi2t dan kalau saya, saya lebih cenderung buatkan sebagai unit jadi bisa efektif dan praktis malahan satu untuk semua... btw, tetep kreatif terus mas masdi2t saya dukung..... :D

dari tadi cari sana cari sini kok ngk nemu bagaimana cara kirim komponen ya? saya baru aja bikin komponen yg bisa fasilitasi keinginan mas saysansay. tinggal masukkan tanggal trus dah keformat deh (tp informasi bulan dan tahun juga harus dimasukkan dahulu) mungkin saya post ke artikel aja ya, tinggal install komponennya (namanya TMyDateEdit), default nya saya taruh di page Sample, bisa diubah kok. oya, bagi yang ingin mengubah2 lagi, monggo mawon :D

wew mas didit tinggal upload disini www.uloadtemple.com atau mas didit bisa sherefoldernya dengan menggunakan www.eSnips.com...thank's before...iya nech tak tunggu artikelnya...jadi semangat nech ama delphi..ngepost artikel ach...wakakakakakaka Kemana Nech mas ulil kok Nga pernah muncul Lagi Wakakakakaka

disini http://esnips.com/web/component thx infonya :)

mas didit ternyata erorr nech... pesan erorrnya [php:1:134cb0960f][Fatal Error] uMyEdit.pas(6): File not found: 'JvEdit.dcu'[/php:1:134cb0960f] Asyik Ngetest tampilan PHP wakakakaka tak cari JVedit.Dcu Nga ada Lho Gimana Donkkkkkk

JvEdit, itukan kalo gak salah salah satu komponen dari JEDI, jadi pastikan JEDI terinstal di Delphi Anda.. kalo sudah tersedia, masukkan path JEDI di Tools->Options->Library tambahkan entry pada LibraryPath ke folder tempat DCU nya JEDI tersimpan.