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;  

//inisialisasi procedure
procedure upperCase(sender:TObject);
var
  sebelumUp : TNotifyEvent; //mengeset variabel yang dibutuhkan
  dimulaiUp: Integer;
begin
  with (Sender as TEdit) do
    begin
      sebelumUp := OnChange; //assign var sebelumUp seperti onChange
      OnChange := nil;
      dimulaiUp := SelStart;
      if ((SelStart > 0) and (Text[SelStart - 1] = ' ')) or (SelStart = 1) then
        begin
          SelStart := SelStart - 1;
          SelLength := 1;
          //menjadikan karakter pertama menjadi upperCase
          SelText := AnsiUpperCase (SelText);
        end;
      OnChange := sebelumUp;
      SelStart := dimulaiUp;
    end;
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;  

procedure TForm1.Edit1Change(Sender: TObject);
begin
  upperCase(Sender);
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.