Função não encontrada no Delphi
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.
Exemplo
v_num := inStr(´A´,´MARCELO´)
v_num seria iqual a 1;
obrigado.
Mascotepc
Curtidas 0
Respostas
Imoreira
18/01/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´)
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´)
GOSTEI 0