问高手:查找保留问题怎么办?

Question

比如有一这串:
str:='制度、法律、法规、办法、草案、法制、';现在想取出,'制'、'法'、'度',并统计:
制:2
法:4
度:1用in ['制','法','度']又不知怎么搞!

Answer 1

把STR中的一个一个的取出来进行判断.

Answer 2

循环判断计数:
用单个字符可以找到,找汉字不行.
for i:=1 to lenght(str) do
if s[i]='汉字' then '不行'

Answer 3

var wstr:widestring;
begin
  wstr:=widestring(str);
  for i:=1 to length(wstr) do
  begin
  ...
  end
end;