Jumlah Karakter dalam Kalimat (String)

Artikel kali ini adalah tentang bagaimana cara menghitung jumlah karakter di dalam sebuah EditBox di dalam delphi,ikuti langkah-langkah dibawah ini.

Pertama siapkan project dengan 

-3 buah edit.box

-1 Button

Misal di edit1 di input huruf 'a', kemudian di edit2 di inputkan kalimat misal 'nama saya adalah'

ketika di klik button maka akan muncul hasilnya di edit3 berupa 7, 7 di dapat dari banyaknya huruf a pada kalimat trsebut, terimakasih
Code :

1. procedure TForm1.Button1Click(Sender: TObject);  
2. var x,jml:integer;  
3. h,s:string;  
4. n:char;  
5. begin  
6. h:=edit1.Text;  
7. s:=edit2.Text;  
8. n:=h[1];  
9. jml:=0;  
10. for x:=1 to length(s) do  
11. if s[x]=n then inc(jml);  
12. edit3.Text:=inttostr(jml);  
13. end;  

---

Klik Like/share jika anda menyukai tulisan Share

    Syarat Tukar Link/Banner      Blog anda terdaftar di Search Engine dan halaman tukar link anda terindeks di Google.      Terdaftar      Terdapat meta tag search engine pada template.      Terindeks      Halaman blog muncul pada hasil pencarian Google...  

---