Função não encontrada no Delphi

18/01/2006

Alguém saberia me dizer se existe alguma função nativa do Delphi que me retorna quantas vezes uma determinada String aparece em uma Segunda String ?

Exemplo

v_num := inStr(´A´,´MARCELO´)

v_num seria iqual a 1;


obrigado.


Mascotepc

Respostas

19/01/2006

Imoreira

function ContaCaracter(caracter, Cadeia: string): integer;
var
y,x:integer;
begin
x:=0;
for y:=1 to length(cadeia) do begin
if (copy(cadeia,y,1)=caracter) then begin
inc(x);
end;
;
end;
result:=x;
end;

Utilize assim:

v_num := ContaCaracter(´A´,´MARCELO´)


Responder Citar