Beranda > String dan bilangan > Menghitung jumlah kata

Menghitung jumlah kata

Apabila anda ingin mengetahui jumlah kata yang terdapat pada sebuah memo maka fungsi ini akan cukup berguna untuk anda. Untuk memulainya kita bisa memanfaatkan form cekteks lalu membuang komponen TEdit. Lalu masukan kode dibawah ini :

Function  JmlKata( Teks : String ): Integer ;

var

i : Integer ;

s : String ;

jml : Integer ;

begin

jml:=0;

s:=TRim(teks);

for i:=1 to length(s) do

begin

if ((copy(s, i, 1)=’ ‘) or (copy(s, i,2)=’  ‘)) then

jml:=jml+1;

end;

result:=jml+1;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

ShowMessage(‘Jumlah kata pada memo1 adalah ‘+

intTostr(jmlKata(memo1.Text))+’ kata’);

end;

  1. Belum ada komentar.
  1. No trackbacks yet.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: