有一个字符串001,002,003,004...长度不一定,我想知道这些字符串里有多少个","号,该如何写呢?

Question

有一个字符串001,002,003,004...长度不一定,我想知道这些字符串里有多少个","号,该如何写呢?

Answer 1

用POS（‘，’，S）来判断，最后统计有多少个逗号

Answer 2

uses strutils;
procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
    s:='001,002,003,004';
    showmessage(inttostr(length(s)-length(AnsiReplaceStr(s,',',''))));
end;

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  Str: String;
  List: TStringList;
begin
  Str := '001,002,003,004';
  List := TStringList.Create;
  try
    List.Delimiter := ',';
    List.CommaText := Str;
    showMessage(IntToStr(List.Count-1));
  finally
    List.Free;
  end;
end;