怎么判断某个字符串中指定字符的个数

[iranjn]

问题同上.如1*2*3*中可以输出*有3个.其实方法听多的,我想找一个较为简便的方法

[constantine]

简单的没有,无非就时循环找咯,还有什么,没有听过.

[lvsongbo]

var
i,j:integer
Str:String;
begin
j:=0;
for i:=1 to length(1*2*3*) do
begin
str:=copy(1*2*3*,i,1);
if str='*'then
inc(j);
end;
end

[nhconch]

var
i,cnt:integer
Str:String;
begin
cnt:=0;
str := '1*2*3*';
for i:=1 to length(str) do
if str[i]=ord('*') then inc(cnt);
end

[ghchen]

var
i,cnt:integer
Str:String;
begin
cnt:=0;
str := '1*2*3*';
for i:=1 to length(str) do
if str[i]=ord('*') then inc(cnt);
end

[constantine]

如果你连这个都懒,那么
用StringReplace

strTemp: String ;
str : String;
strTemp := '1*2*3*4*5*';
str := StringReplace(strTemp, '*', '', [rfReplaceAll]);
showmessage(inttostr(Length(strTemp)-Length(str)));

[chinaandys]

更简单的:

var
S,tmp:string;
i:Integer;
begin
S:='1*2*3*';
i:=length(S);
tmp:=stringreplace(S,'*','',rfReplaceAll);
i:=i-length(tmp);
end;

[chinaandys]

更简单的:

var
S,tmp:string;
i:Integer;
begin
S:='1*2*3*';
i:=length(S);
tmp:=stringreplace(S,'*','',[rfReplaceAll]);
i:=i-length(tmp);
end;

[hellolongbin]

这个方法不错