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

[coso]

deberia ser algo asi



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:


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:


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 :D.

[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]

;) 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]

Pues si, esa es la idea :).

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

[jhonny]

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

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

[egostar]

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