分割字符串以后如何判断分割的个数?

[chengran1984]

function SplitString(Source, Deli: string ): TStringList;stdcall;
var
  EndOfCurrentString: byte;
  StringList:TStringList;
begin
  StringList:=TStringList.Create;
while Pos(Deli, Source)>0 do
begin
  EndOfCurrentString := Pos(Deli, Source);
  StringList.add(Copy(Source, 1, EndOfCurrentString - 1));
  Source := Copy(Source, EndOfCurrentString + length(Deli), length(Source) - EndOfCurrentString);
end;
  Result := StringList;
  StringList.Add(source);
end;

我用的是这个分割函数,如何显示他分割以后的个数...?

[chengran1984]

我用的这种方法还是挺好的,就是不会统计字符串分割后的字数.

[starluck]

StringList.Count 就是個數

字數就不太明白 你的意思了，那可能要取TEXT再判斷中英文才行。

[dinoalex]

stringlist.count

楼主不用写代码这么麻烦吖,可以直接用下面的

stringlist1.Delimiter:= Deli;
stringlist1.DelimitedText:= Source;

[ccrun.com]

TStringList的Count

[ccrun.com]

TStringList的DelimitedText并不完美，如果字符串中有空格，会当作分隔符来处理。