Setelah sebelumnya kita mempelajari cara membalik urutan karakter pada string, sekarang kita coba membuat program mengubah huruf pada awal kata menjadi kapital. Pertama mari kita buat fungsi Capword seperti di bawah ini. Dengan fungsi ini anda dapat mengubah karakter pertama dari suatu kata menjadi huruf kapital. Fungsi Capword hanya mempunyai satu parameter, yaitu string yang akan diubah. type { TForm1 } TForm1 = class(TForm) function CapWord(teks:string):string; //tulis disini kodenya private Selanjutnya pada bagian implementation tuliskan kode berikut: //fungsi Capitalize each Word function TForm1.CapWord(teks:string):string; var i : integer; s : string; begin s:=Uppercase(teks[1]); for i:=2 to length(teks) do if (teks[i-1] in [' ','?','!',',',':',';','.']) then s:=s+uppercase(teks[i]) else s:=s+lowercase(teks[i]); result:=s; end; Selanjutnya ta...
Kumpulan Catatan Tutorial Belajar Lazarus Free Pascal