Função não encontrada no Delphi
18/01/2006
0
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
Curtir tópico
+ 0
Responder
Posts
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´)
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
Clique aqui para fazer login e interagir na Comunidade :)