W wanghaiou Unregistered / Unconfirmed GUEST, unregistred user! 2005-06-26 #5 function Repeatcount(s:string;d:string):integer; var i:integer; begin i:=0; while pos(d,s)>0 do begin i:=i+1; delete(s,pos(d,s),length(d)); end; result:=i; end;
function Repeatcount(s:string;d:string):integer; var i:integer; begin i:=0; while pos(d,s)>0 do begin i:=i+1; delete(s,pos(d,s),length(d)); end; result:=i; end;
W wuchunhua Unregistered / Unconfirmed GUEST, unregistred user! 2005-06-26 #6 for i:=1 to s.count do begin if s='str' j++; end;
M mt Unregistered / Unconfirmed GUEST, unregistred user! 2005-06-26 #8 没有这样的函数吗？ 过程容易实现 我想知道delphi里有没有这样的函数
