caracteres repetidos

Question

Como fa�o para controlar caracteres repetidos dentro de uma edit...ex.: CCC, AAAvlw...

Rjun · Answer

Oq especificamente vc quer fazer?...

Greghowe · Answer

pretendo travar o usu�rio de colocar mais de 2 caracteres repetidos... caso ele digite mais de dois Key deve receber #0....

Rjun · Answer

Por exemplo, ele pode digitar 2 vezes a letra �A� ou s� uma vez �A�....

Rjun · Answer

Crie uma fun��o para contar o numero de vezes que o caracter informado ocorre dentro do texto.

function Repeticoes(substr, texto: string): integer;
var
  i: integer;
begin
  result := 0;
  for i := 1 to Length(texto) do
    if (texto[i] = substr) then
      result := result + 1;
end;

Depois no evento OnKeyPress coloque o seguinte c�digo:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Repeticoes(Key, Edit1.Text) >= 2 then
    Key := 0;
end;

Greghowe · Answer

vlw......

Sandra · Answer

Sex Ago 26, 2005 2:52 pm[quote:100240f71b=�greghowe�]isso mas naum mais que 3 vezes[/quote:100240f71b][b:100240f71b][color=red:100240f71b]Obs.:[/color:100240f71b][/b:100240f71b] Somemte complementando: este t�pico com uma resposta do usu�rio [b:100240f71b]greghowe[/b:100240f71b], pois ao inv�s de clicar no bot�o *Responder*, escolheu *Novo t�pico* (este *Novo t�pico* foi exclu�do para n�o dispersar o andamento desta d�vida/problema)....

Rjun · Answer

Pelo seu numero de mensagens voc� deve ser novo no forum. Recomendo voc� a leitura das Regras de conduta. N�o crie t�picos novos para falar sobre um t�pico q vc mesmo criou. Se a quest�o n�o foi resolvida, permane�a no mesmo t�pico.

Agora vamos a quest�o. N�o deve haver repeti��o em sequencia? N�o posso ter AAA mas posso ter ArArA? � isso?

Greghowe · Answer

isto exatamente... os caracteres somente naum podem ser escritos em sequencia....

Andremuller · Answer

[code:1:018800a631]procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);var  s1, s2, s3: string;  iTam: integer;begin  iTam := Length(Edit1.Text);  if iTam >= 2 then  begin    s1 := Key;    s2 := Edit1.Text&#91;iTam&93;;    s3 := Edit1.Text&91;iTam - 1&93;;    if (s1 = s2) and (s2 = s3) then      Key := 0;  end;end;[/code:1:018800a631]...

F�rum caracteres repetidos #293320