Funcion para buscar cadena dentro de otra cadena y el numero de veces

[gabrielkc]

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;

[flystar]

Gracias por tu apoyo