Arsip: tentang validasi nich ? please !

more 12 years ago
jajang
frend ni ada yang mau blajar delhpi ?
.. saya punya edit1.text biasa'ya kan ketika di ketikan hufufnya itu huruf kecil nah saya pengen ketika diketikan'ya itu dya secara otomatis jadi huruf besar ? gmna yach
.. 1 lagi ? jadi si edit1.text'ya itu hanya bisa di isi oleh angka saja jadi klo dya dimasukin hufuf keluar peringatan "hanya dapat di isi oleh angka" gtu
.. nah klo yang ini kebalikan'ya edit1.text hanya dapat di isi oleh karakter huruf saya jadi klo angka dya enggak mau juga sema keluar alert "maaf hanya dapat di isi oleh huruf "
.. thank's

more 12 years ago
DelphiExpert
Pada dasarnya anda harus tahu event yg tepat terlebih dahulu, baru melakukan filterisasi. Ini sebenarnya sudah sering dibahas, silahkan search forum utk posting2 lama...
Event yg dimaksud adalah OnKeyPress, dimana kita bisa melakukan manipulas terhadap tiap charackter yg diketikkan...
Contoh utk membuat semua huruf menjadi kapital:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
Key:= UpCase(Key);
end;
Contoh utk mendeteksi angka:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ) then
raise Exception.Create('Hanya dapat di isi oleh angka!');
Sedang utk mendeteksi huruf adalah kebalikannya, tinggal buang NOT:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (Key in ) then
raise Exception.Create('Mohon maaf lahir-bathin, maaf hanya dapat di isi oleh huruf...');
Demikian, semoga dapat pencerahan dan tetap semangat dalam belajar!
more 12 years ago
jajang
.. tpi knapa eRror di ke tika saya maskin angka lalu keluar
"' project Project.exe raised exception class exception with message 'mohoh maaf lahir batin, maaf hanya dapat di isi oleh huruf. process stopped. use stepor Run to continue ""
knapa yach ? saya coba yang untuk mendeteksi huruf

more 12 years ago
DelphiExpert
lha... emang dibuat begitu haha... ente ngga' liat baris:
raise Exception.Create('Mohon maaf lahir-bathin, maaf hanya dapat di isi oleh huruf...');
bukannya baris tersebut memang membangkitkan eksepsi (error) :)
kalau ngga' mau muncul eksepsi, ganti saja dengan:
if (Key in ) then
begin
Key:=#0;// reset char, anggap tidak ada yg diketik
ShowMessage('Mohon maaf lahir-bathin, maaf hanya dapat di isi oleh huruf...');
end;

more 12 years ago
deLogic
OOT:
@jajang dan mungkin rekan2 lainnya:
sebaiknya Anda telaah kode yang telah diberikan oleh rekan2, jangan asal telan saja. Jika Anda mendapat fungsi / statemen baru yang belum Anda kenal, ada baiknya Anda mencari referensinya di dokumentasi Delphi.
Penelanan (halah ) mentah mentah malah akan membuat Anda kurang bisa berkembang, seperti mendapatkan ikannya tapi tidak tahu umpan / kail-nya.

more 12 years ago
n3o_cybertech
wakakakkakak...sangat lucu nih thread,,,@DE : lom ngerti tuh maksudnya...wakakakakkakakakakakak

more 12 years ago
ap
Maap lagi error, gini maksudnya mas DelphiExpert
Buka programnya, liat di bagian About > Program.
Telpon yang bikin, marahin yang bikin, Maki maki, kalo perlu Gampar via Telepon Rumah.
Sekali lagi maap, lagi strezz saya, he he he

more 12 years ago
deLogic
@ap:
silahkan tumpahkan segala macam kekesalan, stress, sumpah serapah Anda dan yang lainnya di thread ini : Aba(d)ikan: Tempat (wc) umum orang ngaco dan o-on

more 12 years ago
simple_code
wakaakakakaaaa....
lucu...lucu....
ada yang nglucu eh di marahin....
suruh pindah kamar tuh
wakakakakaaaa

more 12 years ago
ap
Ampun om deLogic, kalo ternyata salah kamar, maap yah, ternyata ini forumnya orang serius. Saya biasanya ngga pernah serius, kecuali kalo dimarahin bos, baru serius.
@simple_code jangan ngetawain gw, ntar gw laporin sama bapak gw lho, wakwkakaka
more ...
- Pages:
- 1
reply |
Report Obsolete
Last Articles
- Lazarus Release 2.0.12
- Project Group dalam Lazarus
- FastPlaz Database Explorer
- Release: FastPlaz Super Mom v0.12.22
- PascalClass #3: Web Development with Free Pascal
- Makna Pascal di Pascal Indonesia
- Kulgram : Instalasi Lazarus di Perangkat Berbasis ARM
- PascalClass #1: Analisa Database dan Machine Learning
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
- Mengenal OXYGENE – Pascal For .NET
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 6 months ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 6 months ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 7 months ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 7 months ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 7 months ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 7 months ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 1 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 8 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 8 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 8 years ago
Random Topic
- Print dengan Word
by xerion in Tip n Trik Pemrograman more 14 years ago - cancel save database
by ImanD in Tip n Trik Pemrograman more 14 years ago - Porting Nexia Offline Server (VB6 2 Delphi7)
by coolmib in Games more 15 years ago - cara nyimpan data
by putukaca in onLinux more 14 years ago - mw tanya,,,klo script count di mysql itu bisa memfilter data
by aliexdsg in MySQL more 10 years ago - Delphi Killer
by bo3l4q in OOT more 11 years ago - Fungsi Freq di delphi
by belajaraja in Hal umum tentang Pascal Indonesia more 13 years ago - Grab halaman Web
by yosstefano in OOT more 14 years ago - nanya koneksi mysql over internet gimana caranya yah?
by arif_amm in MySQL more 11 years ago - Analisa Sistem
by Joseph in Enginering more 12 years ago