contar numero de strings

Question

fala galera ,
Alguem sabe se existe uma fun��o no delphi para eu poder contar qts caracteres existem em uma string???
Exemplo:

Tenho essa string -> 0000000,000000,000000 ( quero saber qts virgulas existem)

Vlw!!!!

Marco Salles · Answer

se tem , a principio foi ocultado pela referencia do Marcu cantu no seu livro delphi7.0 sobre a pesquisa de multiplas ocorrencias de uma String dentro de Outra.

�Introduziu em seu capitulos inicais sobre String a fun��o PosAu�

function CountSubExt(texto,subString:String):integer; var i,posicao:integer; begin result:=0; posicao:=PosEx(SubString,texto,0); while posicao > 0 do begin result:=result+1; posicao:=PosEx(SubString,texto,posicao+length(subString)); end; end;

[b:d0647e9b7a]para chamar[/b:d0647e9b7a]

procedure TForm1.Button1Click(Sender: TObject); begin showmessage(inttostr(CountSubString(edit1.text,�,�))); end;

incoveniente � que � sensitive .. Mas isto pode ser melhorado se preferir

Macario · Answer

Fica aqui uma sugestao utilizar  [b:08d4be6406]ANSIUPPERCASE[/b:08d4be6406] quem sabe nao se consegue resolver esta limitacao.Espero ter ajudado. :roll:...

Raserafim · Answer

caso vc n�o encontre uma fun��o, pode fazer o seguinte:

var
  S: String;
  I: Integer;
  Qtd: Integer;
begin
  S := �0000,0000,000000,0000000�;
  Qtd := 0;
  for I := 0 to Length(S) - 1 do
  begin
    if S[I] = �,� then
      Qtd := Qtd + 1;
  end;
  ShowMessage(inttostr(Qtd));

end;

Massuda · Answer

Uma pequena corre��o ao c�digo do raserafim... os caracteres de uma string s�o indexados a partir de 1, ent�o o correto seria:

for I := 1 to Length(S) do...

Marco Salles · Answer

[quote:b4ff6015ba]ncoveniente � que � sensitive .. Mas isto pode ser melhorado se preferir[/quote:b4ff6015ba][quote:b4ff6015ba]Fica aqui uma sugestao utilizar ANSIUPPERCASE quem sabe nao se consegue resolver esta limitacao. [/quote:b4ff6015ba]sim , a fun��o pode ser melhoradaraserafim , o Modelo inicial acredito ser mais otimizado , pois evita repeti�oes desnecess�ria.Uasr um For e um If e fazer uma varredura em toda a string algo que � dispensada pelo uso da Fun��o PosEx.. Que usa como um parametro uma posi��o inicial... Assim , ela � otimizada pois a pesquisa realizada internamente pelo compilador levara em conta o Valor dessa possi��o inicial...

F�rum contar numero de strings #329863