如何查看Memo中的某个字有多少个呢？

Question

例如：
我让程序判断Memo文本里有多少个“你”字，然后在label中显示出数量。该怎样做呢？ 最好给个代码 ！
新手初学delphi，大家帮帮忙啦！

Answer 1

uses strutils;//获得字符出现数量函数
function getCount(text: string; find: string): integer;
begin
  Result:= (length(text)-length(AnsiReplaceStr(text,find,''))) div length(find);
end;
//调用
procedure TForm1.Button2Click(Sender: TObject);
begin
  showmessage(inttostr(getCount(memo1.Text,'Äã')));
end;

Answer 2

uses strutils;//获得字符出现数量函数
function getCount(text: string; find: string): integer;
begin
  Result:= (length(text)-length(AnsiReplaceStr(text,find,''))) div length(find);
end;
//调用
procedure TForm1.Button2Click(Sender: TObject);
begin
  showmessage(inttostr(getCount(memo1.Text,'你')));
end;
出现乱码了