编程论坛 → Delphi论坛

字符串问题

Sewim 发布于 2006-03-08 16:29， 647 次点击

请教各位:
在Delphi中,有没有计算A字符串中有几个B字符串的函数啊!

4 回复

aerefasdf2006-03-09 07:59

没有现成的，自己写一个

ysp_19842006-03-23 16:54

这是我写的函数，我测试过。
function Tform1.Query(C:char;str:string):integer;

var
counts,i: integer;
begin
counts:=0;
for i:=0 to length(str) do
begin
if str[i]=C then
inc(counts,1);
end;
result:=counts;
end;

Delphi_lover2006-11-23 22:23

我试了这个函数可以实现统计字符串中的特指字符的个数，呵呵。。。

形影随从2006-11-24 14:07

var
vStrA, vStrB: String;
vCount: integer;
begin
vCount := 0;
vStrA := '123456789123456789123456789123456789';
vStrB := '56';
while True do
begin
if Pos(vStrB, vStrA) = 0 then
break;
vStrA := Copy(vStrA, Pos(vStrB, vStrA) + Length(vStrB), Length(vStrA));
inc(vCount);
end;
Edit1.text := inttostr(vCount);
end;