unimemo girilen karakter sayısı anlık görme

[muttalip65]

Memo alanını 500 karakter ile sınırladım. Kullanıcı bilgi girerken bu sınır değerden kullanıcının girdiği karakter sayısını düşüp girebileceği karakter sayısını

anlık olarak görebilmesini nasıl sağlayabilirim.

 

Şimdiden Teşekkürler.

 

 

[alucard]

procedure TForm1.MesajMemoChange(Sender: TObject);
var
 mesaj : Double;
 sms : Double ;
begin
mesaj :=Length(MesajMemo.Text);
sms   := Ceil( mesaj/160);


        if MesajMemo.Text<>'' then
              begin
              Label7.Caption:='Karakter / Sms : '+IntToStr(Length(MesajMemo.Text)) +' / '+FloatToStr(sms);
              end
        else
              begin
              Label7.Caption:='Karakter / Sms : 0 / 0';
              end;
end;

ben sms programında kullanmıştım. 160 karakterde dur diyeceksin sadece