String

Question

Pessoal,Algu�m sabe qual fun��o devo usar para saber quantas vezes uma caracter aparece em uma string?Obrigada.Fernanda...

Skaarj · Answer

Usando o mesmo processo da contagem de palavras de um StringList.. Joga-se cada letra como se fosse uma palavra:

var
  Palavras: TStringList;
  Index,i,cont,j: Integer;
  texto : String;
begin
  texto := Edit1.Text;
  Palavras := TStringList.Create;
  try
    cont:=0;
    i:=1;

    for j:=0 to length(texto) do
    begin
      Palavras.Add(texto[j]);
    end;

    Palavras.Sort;
    if Palavras.Find(�i�, Index) then
    begin

      inc(cont);
      i:=index;
      while Palavras.Strings[i] = �i� do
        begin
          inc(cont); 
          inc(i); 
        end; 
      label1.caption:=inttostr(cont);
    end; 
  finally 
    Palavras.Free; 
  end;

Marcelo Saviski · Answer

tente assim:[code:1:0a6a47c988]function ContaCaracteres(Texto: string; Caracter: Char): Integer;var  I: Integer;begin  Result := 0;  for I := 1 to Length(Texto) do    if Texto&#91;I&93; = Caracter then       Inc(Result);end;[/code:1:0a6a47c988]A fun��o passa por todos os caracteres e verifica se � o caracter epecificado, se for, incrementa o contador de quantas vezes o caracter se repete.[color=blue:0a6a47c988]Exemplo de uso[/color:0a6a47c988], Inclua um Edit:ShowMessage(�N� de vezes que o caracter �_� aparece no Edit = � + IntToStr(ContaCaracteres(Edit1.Text, �_�)));...

Thomaz_prg · Answer

function contachar( frase:string ; qch:string):integer
var
tm,i,qtd:integer;
begin
tm:=length(string);
qtd:=0;
for i:=1 to tm do
if copy(frase,i,1)=qch then
qtd:=qtd+1;
result:= qtd;
end;

sintaxe: contachar( <StringAVerificar> , <CaracterAProcurar> );
Retorno: Valor Inteiro Referente a Quantidade de Vezes que <CaracterAProcurar> apareceu em <StringAVerificar>.

Exemplo de Uso

qvezes:=contachar(�sistema de delphi�,�e�);

O valor de qvezes ser� 3, pois o caracter �e� apareceu 3 vezes na string.

Espero ter ajudado!

F�rum String #224745