Huruf Kapital di Awal Kata dengan Delphi

Pada beberapa hal, kita membutuhkan penulisan kata dengan huruf kapital pada huruf pertamanya, sebagai contoh "Arradys Code" memiliki huruf kapiral pada huruf A dan huruf C.
Tidak seperti halnya pemrograman PHP yang sudah menyediakan fungsi ucFirst(), delphi harus dibuatkan fungsi tersendiri untuk menghandle hal seperti ini.
Sebenarnya fungsi ini sederhana, Anda hanya perlu mengetahui pada saat-saat seperti apa huruf tersebut harus di-kapital-kan.
Pada tutorial kali ini, kapital akan dilakukan jika huruf tersebut berada di awal kalimat, atau berada setelah spasi, setelah titik dan setelah dash(-). Berikut fungsinya, silahkan di copy ke unit Anda.

function firstCapital(edit : string) : string;
var
  j   : integer;
  r : string;
begin
  r := '';

  for j := 1 to length(edit) do
    if charInset(edit[j-1],[' ','-','.']) or (j = 1) then
      r := r + uppercase(edit[j])
    else
      r := r + lowercase(edit[j]);

  result := r;
end;

Pada kode tersebut Anda dapat melihat (j=1), melakukan pengecekan jika huruf berada di awal kalimat. Kemudian juga melakukan pengecekan charInset(edit[j-1],[' ','-','.']), jika huruf berada setelah spasi,titik atau dash.
Anda dapat menambahkan daftarnya dan kondisi-kondisi pengecekan lainnya.
Perlu diketahui, fungsi charInset tidak terdapat pada delphi 7, sehingga jika Anda adalah pengguna delphi7, anda perlu mengubah kode berikut:

if charInset(edit[j-1],[' ','-','.']) or (j = 1) then

menjadi:

if (edit[j-1] in ([' ','-','.'])) or (j = 1)then

Kemudian, untuk menggunakannya Anda hanya perlu memanggil fungsi firstCapital();

procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage(firstCapital('ini sudah di capital'));
end;

Silahkan coba kode di atas, maka Anda akan mendapat output yang sudah dikapitalkan huruf awalnya, silahkan dimodifikasi dan semoga bermanfaat.

Terbaru di blog ini:

Mungkin Anda juga ingin membaca:

Suka artikel ini? Bagikan :

Facebook Google+