有没有为法统计memo1文本中中包括多少个a字符?

Question

如题

Answer 1

有一个简单办法
先用AnsiReplaceStr函数,把字符串中的'a',全换成''(空字符串),再看看这时的字符串的长度比以前短了多少,就是a的个数了.

Answer 2

var
  ss:string;
  num,i:integer;
begin
  ss:=memo1.text;
  num:=0;
  for i:=1 to length(ss) do
  begin
    if ss[i]='a' then  inc(num);
  end;
end;//num就是a的个数  

Answer 3

showmessage(inttostr(pos('a',Memo1.Text)));  测试通过.

Answer 4

count := 0;
for i := 0 to length(memo1.text) - 1 do
begin
  if memo1.text[i]='a' then
    count := count + 1;
end;showmessage(inttostr(count));

Answer 5

use strutils;var temps:string;
begin
  temps:=memo1.text;
  showmessage(inttostr(length(temps)-length(ansireplacestr(temps,'a','')));
end;

Answer 6

同意： gencan(无敌)及 delphi2java(delphi2java) 方法