contar numero de palabras en un string
 

hola amigos tengo el siguiente problema tengo una cadena string que es la ruta de una imagen que necesito guardar ejemplo
c:\misdocumentos\nueva carpeta\flor.gif
y necesito contar los anti slach (\) que hay en esta cadena para poder saber el nombre del archivo en si, en este caso necesitaria que me devolviera 3, he buscado y buscado y probado y probado y no he dado la manera :confused:
ojala me puedan ayudar y les agradesco mucho ;) chao

deberia ser algo asi

Código Delphi [-]

function Contar_caracter(c, s : string) : integer
var
      i,cnt : integer;
begin
         cnt := 0;
         for i := 0 to length(PChar(s)) - 1 do
         if Pos(c,s) <> 0 then inc(cnt);

        Contar_Caracter := cnt;
end;

mas o menos.

A ver si te sirve ;) Saludos

Francamente me parece haber visto una función que hacia esto, pero la verdad es que no la encuentro, por lo que podríamos fabricarla nosotros mismos:

En cualquier versión de Delphi, te servirá esta función:

Código Delphi [-]
 
function NumToken(const Cadena: String; Token: Char): Integer;
var
  I: Integer;
begin
  Result  :=  0;
  for I := 1 to Length(Cadena) do
    if Cadena[i] = Token then
      Inc(Result);
end;

Si tu versión de Delphi es superior a la versión 7, también podrás hacer lo mismo de la siguiente forma:

Código Delphi [-]
 
function NumToken(const Cadena: String; Token: Char): Integer;
var
  vChar: Char;
begin
  Result  :=  0;
  for vChar in Cadena do
    if vChar = Token then
      Inc(Result);
end;

Que curioso que después de casi exactamente 43 minutos, los dos respondimos :D.

pos sip X) ...

muchisisisisisisimas gracias
 

;) Hola compañeros les agradesco inmensamente la ayuda, me funciona perfectamente, les estoy altamente agradecida, que bueno poder encontrar estos espacios donde nos podemos ayudar, mejor dicho nos pueden ayudar los que mas saben jejeje pero con estas ayudas yo tambien aprendo y podre ayudar a otros que tengan dudas que esten al alcance de mis conocimientos de nuevo muchas gracias;)

Pues si, esa es la idea :).

Vaya, y yo pensando desde el 2003 que esto era una web de contactos, jo.

Caramba!!! :eek::D:eek:

Epale amigos, ya desvirtuando hilos :rolleyes::cool::D:D:D

Salud OS