Question

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

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

Answer 1

label1.Caption:=inttostr(length(trim(memo1.Text)));其中里面的 trim() 是删除首位的空格

Answer 2

直接遍历一次,
var
StrOri : string;
i,RecCount : integer;
begin
RecCount := 0;
StrOri := RzMemo1.Text;
for i:=1 to Length(StrOri) do
begin
if StrOri[i]+StrOri[i+1]='你' then
begin
RecCount := RecCount + 1;
end;
end;
RzLabel1.Caption := inttostr(RecCount);
end;

Answer 3

if StrOri[i]+StrOri[i+1]='你' then

这里错误了吧。。。。。

错误的！！！