请教各位:
在Delphi中,有没有计算A字符串中有几个B字符串的函数啊!

没有现成的，自己写一个

这是我写的函数，我测试过。
function Tform1.Query(C:char;str:string):integer;

var
counts,i: integer;
begin
counts:=0;
for i:=0 to length(str) do
begin
if str[i]=C then
inc(counts,1);
end;
result:=counts;
end;

我试了这个函数可以实现统计字符串中的特指字符的个数，呵呵。。。

var
vStrA, vStrB: String;
vCount: integer;
begin
vCount := 0;
vStrA := '123456789123456789123456789123456789';
vStrB := '56';
while True do
begin
if Pos(vStrB, vStrA) = 0 then
break;
vStrA := Copy(vStrA, Pos(vStrB, vStrA) + Length(vStrB), Length(vStrA));
inc(vCount);
end;
Edit1.text := inttostr(vCount);
end;