Cara Konversi Karakter TEdit Menjadi UpperCase di Delphi 7


Selamat siang agan-agan.Selalu menyenangkan rasanya bisa terus konsisten untuk posting.Syukur-syukur kalau agan-agan merasa terbantu dengan postingan saya.Pada kesempatan kali ini , saya akan memberikan tutorial mengenai Cara Konversi Karakter TEdit Menjadi UpperCase di Delphi 7.Maksudnya apa bay !?Jadi gini , ketika kita menginputkan karakter pada TEdit terkadang kita menginginkan supaya karakter awal pada tiap kata yang di inputkan tersebut menjadi UpperCase atau huruf besar.Memang tanpa code pun kita bisa membuat karakter awal
tersebut menjadi UpperCase dengan cara menekan tombol shift.Dan sayangnya sebagai manusia kita memiliki keterbatasan dalam menghindari kesalahan.Bisa saja kita lupa atau malas untuk menjadikan tiap karakter awal menjadi UpperCase.Apalagi bila menghadapi kenyataan jumlah TEdit yang bejibun serta data yang melimpah.Secara penggunaanya , sebuah program yang baik haruslah memiliki kemampuan untuk mereduksi kesalahan tersebut.Okay deh , cukup basa-basinya !! hehe .. Tutorial berikut akan membahas agar tangan kiri kita tidak perlu menekan tombol shift ketika kita menginginkan karakter UpperCase di awal kata.Alurnya seperti ini.Kita akan membuat sebuah procedure dengan nama upperCase , dimana procedure tersebut mengolah karakter input pada TEdit dan menjadikannya UpperCase HANYA pada huruf pertama dari sebuah kata dan huruf pertama pada kata setelah spasi.Bingung !? bagus.Misal kita menginputkan kata "saya sangat senang belajar Delphi 7" , maka dengan menggunakan procedure upperCase , kalimat tersebut otomatis di konversi menjadi "Saya Sangat Senang Belajar Delphi 7".Harusnya sampai disini anda telah mengerti tujuan postingan ini.Setelah procedure upperCase di buat , selanjutnya kita cukup memanggilnya pada TEdit event onChange.Jangan lupa tambahkan 1 buah component TEdit atau lebih.Sekarang waktunya coding.Seperti saya bilang , kita akan membuat procedure upperCase.Ketikan kode berikut setelah {$R *.dfm}


  1. //inisialisasi procedure  
  2. procedure upperCase(sender:TObject);  
  3. var  
  4.   sebelumUp : TNotifyEvent; //mengeset variabel yang dibutuhkan  
  5.   dimulaiUp: Integer;  
  6. begin  
  7.   with (Sender as TEdit) do  
  8.     begin  
  9.       sebelumUp := OnChange; //assign var sebelumUp seperti onChange  
  10.       OnChange := nil;  
  11.       dimulaiUp := SelStart;  
  12.       if ((SelStart > 0) and (Text[SelStart - 1] = ' ')) or (SelStart = 1) then  
  13.         begin  
  14.           SelStart := SelStart - 1;  
  15.           SelLength := 1;  
  16.           //menjadikan karakter pertama menjadi upperCase  
  17.           SelText := AnsiUpperCase (SelText);  
  18.         end;  
  19.       OnChange := sebelumUp;  
  20.       SelStart := dimulaiUp;  
  21.     end;  
  22. end;  

Cukup simpel namun paten.Untuk memanggil procedure tersebut , ketikan kode berikut pada TEdit event onChange


  1. procedure TForm1.Edit1Change(Sender: TObject);  
  2. begin  
  3.   upperCase(Sender);  
  4. end;  

Taraaa !!! Beres deh.Bila anda menambahkan lebih dari satu component TEdit , anda cukup memanggil procedure di atas dengan cara yang sama.Coba jalankan program anda lalu inputkan karakter pada TEdit.Harusnya bila berhasil , semua karakter awal pada tiap kata akan berubah menjadi upperCase TANPA harus menekan tombol shift.Selamat memperkaya program anda dengan procedure ini !! Oia , bila anda ingin mendapatkan update postingan blog ini setiap ada postingan baru , cukup tekan tombol like pada facebook fans page , maka otomatis tiap ada potingan baru , wall facebook anda akan di kotori postingan saya :D.Sekian tutorial kali ini semoga bermanfaat.

0 Response to " Cara Konversi Karakter TEdit Menjadi UpperCase di Delphi 7 "

Welcome In Kode Blogger

Contoh Sliding Login Dengan JQuery

Disamping ini adalah contoh Sliding Login menggunakan JQuery. Login Form Disamping hanya Contoh dan tidak dapat digunakan layaknya Login Form FB, Karena Blog ini terbuka untuk umum tanpa perlu mendaftar menjadi Member

Tutorial Blog

Untuk membuatnya Silahkan : Klik Disini

Member Login

Lost your password?

Not a member yet? Sign Up!