contar numero de palabras en un string

[lina maria]

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
ojala me puedan ayudar y les agradesco mucho chao

[[coso]]

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

[jhonny]

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;

[jhonny]

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

[[coso]]

pos sip X) ...

[lina maria]

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

[jhonny]

Empezado por lina maria

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 .

[[Lepe]]

Empezado por jhonny

Pues si, esa es la idea .

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

[jhonny]

Empezado por Lepe

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

Caramba!!!

[[egostar]]

Empezado por Lepe

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

Empezado por jhonny

Caramba!!!

Epale amigos, ya desvirtuando hilos

Salud OS