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.


Mascotepc

Mascotepc

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


Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar