Contador de caracteres

Question

COMO POSSO FAZER UM CONTADOR DE CARACTERES DE UM DBEDIT OU DBEMEMO?T�tulo editado pelo Moderador - AZ...

Fabiosilva · Answer

Coloque um label (LblDigitos), ira receber o numero de caracteres em tempo de exec��o
Insira o codigo no evento onchange

var
I: Integer;
Ch: Char;
Cnttotal: Integer;

begin
Cnttotal := 0;
for I := 1 to Length(Memo1.Text) do
begin
Ch := Memo1.Text[I];
if Ch in ChrMaiusculas then
Inc(Cnttotal);
else
if Ch in ChrMinusculas then
Inc(Cnttotal);
else
if Ch in ChrNumeros then
Inc(Cnttotal);
else
if Ch in ChrBrancos then
Inc(Cnttotal);
else
if Ch in ChrEspeciais then
Inc(Cnttotal);
else
Inc(Cnttotal);

LblDigitos.Caption := IntToStr(Cnttotal);

Fabiosilva · Answer

Coloque um label (LblDigitos), ira receber o numero de caracteres em tempo de exec��o
Insira o codigo no evento onchange

var
I: Integer;
Ch: Char;
Cnttotal: Integer;

begin
Cnttotal := 0;
for I := 1 to Length(Memo1.Text) do
begin
Ch := Memo1.Text[I];
if Ch in ChrMaiusculas then
Inc(Cnttotal);
else
if Ch in ChrMinusculas then
Inc(Cnttotal);
else
if Ch in ChrNumeros then
Inc(Cnttotal);
else
if Ch in ChrBrancos then
Inc(Cnttotal);
else
if Ch in ChrEspeciais then
Inc(Cnttotal);
else
Inc(Cnttotal);

LblDigitos.Caption := IntToStr(Cnttotal);

Deus · Answer

Que foi isso? Primeiro, voc� n�o definiu os conjuntos em lugar nenhum - que sets s�o esses?! [i:53dc7f32ec]ChrMaiusculas[/i:53dc7f32ec], [i:53dc7f32ec]ChrMinusculas[/i:53dc7f32ec], etc. E outra - essa � mais de estilo. Ao inv�s de tantos [i:53dc7f32ec]if / else[/i:53dc7f32ec], n�o seria melhor usar um [i:53dc7f32ec]if[/i:53dc7f32ec] s� e v�rios [i:53dc7f32ec]or[/i:53dc7f32ec]? Ou seja:

for i := 1 to Length(Memo1.Text) do 
  begin 
    Ch := Memo1.Text[i]; 
    if (Ch in ChrMaiusculas) or (Ch in ChrMinusculas) or (Ch in ChrNumeros) or (Ch in ChrBrancos) or (Ch in ChrEspeciais) then
      Inc(Cnttotal);
  end;

LblDigitos.Caption := IntToStr(Cnttotal);

Sem falar que eu n�o entendi o porqu� de tantos sets. N�o seria melhor um set s�, assim:

for i := 1 to Length(Memo1.Text) do 
  begin 
    if (Memo1.Text[i] in [�a�..�Z�, �0�..�9�, � �]) then
      Inc(Cnttotal);
  end;

LblDigitos.Caption := IntToStr(Cnttotal);

Acho que seria melhor. Ele queria para um Memo, ou para um DBEdit? � s� mudar o nome do controle, ent�o. Desta forma, voc� n�o vai precisar declarar tantas vari�veis - s� [i:53dc7f32ec]i[/i:53dc7f32ec], que vai servir para a contagem.

Abra�os, dEUS.

Demian Soares · Answer

crie um label qualquer... entao no evento onchange do componente dbedit ou dbmemo coloque o seguinte codigo...

label1.caption := inttostr(length(DBEdit1.Text));

pronto enquanto vc estiver digitando ou apagndo ele ira incrementar ou decrementr...so...

Cebikyn · Answer

N�o � t�o simples assim, se colocar apenas Length, ser� contados os caracteres #10 ( ou $0A ), que indicam mudan�a de linha. O melhor c�digo para o caso � o c�digo de [b:120ae9a55a]dEUS[/b:120ae9a55a].

Cebikyn · Answer

V�lido para DBMemo:[quote:8cb40a5dca=�cebikyn�]N�o � t�o simples assim, se colocar apenas Length, ser� contados os caracteres #10 ( ou $0A ), que indicam mudan�a de linha. O melhor c�digo para o caso � o c�digo de [b:8cb40a5dca]dEUS[/b:8cb40a5dca].[/quote:8cb40a5dca]No caso do DBEdit � v�lido o uso de Length....

F�rum Contador de caracteres #198401