Contando numero de carateres ...?
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
Curtidas 0
Respostas
Cac2000
25/04/2003
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);
GOSTEI 0
Amjorge
25/04/2003
Use a Função Length()
Tamanho := Length(Palavra);
Tamanho := Length(Palavra);
GOSTEI 0