如何统计一个字符串中某个字符的个数?
如题,如:12345~asdfasdfsdf~dsfsdfasdfasdfkkkkk~如何统计 '~ '在字符串中的个数.
[解决办法]
Count := 0;
for I := 1 to Length(s) do
begin
if s[I] = '~ ' then Inc(Count);
end;
[解决办法]
UP樓上的!
[解决办法]
也可以用pos函数,循环查找。
每一次循环后以‘~’后的字符串为新字符串继续循环，直道最后一个‘~’为止。
[解决办法]
var
sourceStr, tempStr: string;
Num: integer;
begin
sourceStr := '12345~asdfasdfsdf~dsfsdfasdfasdfkkkkk~ ';
tempStr := StringReplace(sourceStr, '~ ', ' ', [rfReplaceAll]);
Num := Length(sourceStr) - Length(tempStr);
showmessage( '共有 '+IntToStr(Num)+ '个~ ');
end;
[解决办法]
上面只是提供一个方法，其实效率最高的还是for loop
