Array
(
)

Função não encontrada no Delphi

Mascotepc
   - 18 jan 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.


Imoreira
   - 19 jan 2006

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´)