StrSubCount

函式功能

返回某字元在字元串中的個數

函式說明

function StrSubCount(const Source,Sub:string):integer; //判斷某字元在字元串中的個數

var Buf:string;

Len,i:integer;

begin

Result:=0;

Buf:=Source;

i:=Pos(Sub, Buf);

Len:=Length(Sub);

while i <> 0 do

begin

Inc(Result);

Delete(Buf,1,i+Len-1);

i:=Pos(Sub,Buf);

end;

end;