ทำ function โดยการวน Loop ใช้ if ธรรมดาๆ นี่ก็ได้ครับ ส่งค่าเข้าไป 2 ค่า คือ String ทั้งหมด และ String ที่ต้องการนับ สมมติ xx คือ String ทั้งหมด x คือ String ที่ต้องการนับ
count:=0; for i:=1 to length(xx) do begin if xx[i]=x then count:=count+1; end; ----------------------------- Delphi , Delphi.net , Firebird ,MySQL : http://firebird.raxio.com