TStrings类型的变量，如何得到分隔符的个数

Question

有这样一段程序：
var
  aStrs: TStrings
begin
  aStrs := TStringList.Create;
  try
    aStrs.Delimiter := '-';//分割符是‘ - ’
    aStrs.DelimitedText := '12345-34567-2-34';
  finally
    aStrs.Free;
  end;
end;请问我要通过什么方法得到aStrs的分隔符的个数。 在这段程序中aStrs的分隔符的个数是3。
谢谢。

Answer 1

aString:字符串
SepChar:分隔符Function GetSubStrNum(aString:String;SepChar:String):Integer;
var
i:Integer;
StrLen:Integer;
Num:Integer;
begin
  StrLen:=Length(aString);
  Num:=0;
  for i:=1 to StrLen do
    begin
      if Copy(aString,i,1)=SepChar then
         Num:=Num+1;
         result:=Num;
    end;
end;