查找一个子字符串在另一个字符串的包含次数。

[zhanglanting0417]

查找一个子字符串在另一个字符串的包含次数。
比如判断'1234' 在'123,1212,12121,1234,232323,1234,23323,121212,123456'
所包含的次数。

[zhanglanting0417]

风舞轻扬 厉害，给80分。

[楚人无衣]

呵呵，结了多天了；用StringReplace似乎效率慢了些，不过显示不出来，我再贴一个:
function GetStrCounts(ASubStr, AStr: string): Integer;
var
i: Integer;
begin
result := 0;
i := 1;

while PosEx(ASubStr, AStr, i) <> 0 do
begin
Inc(result);
i := PosEx(ASubStr, AStr, i) + 1;
end;
end;