Fórum Contando numero de carateres ...? #155646
25/04/2003
0
Olá como faz pra ir contando e diminuindo o numero de carateres tipo do site de mensagens da telefonica agora vivo ele apresenta 145 o caracter maximo mas cada caracter digitado ele diminui.
Vou digitar em um MEmo e o contador vai estar em uma edit.
Vou digitar em um MEmo e o contador vai estar em uma edit.
Fsjr
Curtir tópico
+ 0
Responder
Posts
25/04/2003
Cac2000
Sua pergunta está meio confusa, mas vamos lá. Pelo que eu entendi, você quer um Edit que mostre qual o tamanho do texto digitado em outro Memo
No evento OnChange do Memo:
Tamanho := 0;
for i := 0 to Memo1.Lines.Count-1 do
Tamanho := Tamanho + Length(Memo1.Lines[i]);
Edit1.Text := IntToStr(Tamanho);
No evento OnChange do Memo:
Tamanho := 0;
for i := 0 to Memo1.Lines.Count-1 do
Tamanho := Tamanho + Length(Memo1.Lines[i]);
Edit1.Text := IntToStr(Tamanho);
Responder
Gostei + 0
25/04/2003
Amjorge
Use a Função Length()
Tamanho := Length(Palavra);
Tamanho := Length(Palavra);
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)