delphi 怎样获取字符串里面有多少个逗号

来源：百度知道 编辑：UC知道 时间：2024/05/08 15:51:20
例如:150[150],140[140],130[130],120[120],110[110],100[100]
就有5个逗号

在线等////

upper不对，该用length

var
aa:string;
i,b:integer;

begin
b:=0;
aa:='150[150],140[140],130[130],120[120],110[110],100[100] ';
for i:=1 to Length(aa)
begin
if aa[i]=',' then
begin
b:=b+1;
end;
end;
showmessge('有'+IntToStr(b)+'个逗号');
end.

var
aa:string;
i,b:integer;

begin
b:=0;
aa:='150[150],140[140],130[130],120[120],110[110],100[100] ';
for i:=1 to upper(aa)
begin
if aa[i]=',' then
begin
b:=b+1;
end;
end;
showmessge('有'+IntToStr(b)+'个逗号');
end.

大概就这样子吧，很久没用DELPHI了，里面语法可能有点小毛病，嘿嘿