Código Delphi [-] function countstrings(Cadena:string;Buscar:string):Integer; begin // Opcional si no quieres que sea Case Sencitive Cadena:=UpperCase(Cadena); Buscar:=UpperCase(Buscar); Result:=0; while Pos(Buscar,Cadena)<>0 do begin Result:=Result+1; Delete(Cadena,1,Pos(Buscar,Cadena)+Length(Buscar)); end end;
function countstrings(Cadena:string;Buscar:string):Integer; begin // Opcional si no quieres que sea Case Sencitive Cadena:=UpperCase(Cadena); Buscar:=UpperCase(Buscar); Result:=0; while Pos(Buscar,Cadena)<>0 do begin Result:=Result+1; Delete(Cadena,1,Pos(Buscar,Cadena)+Length(Buscar)); end end;