muttalip65 Posted March 21, 2017 Share Posted March 21, 2017 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. Quote Link to comment Share on other sites More sharing options...
alucard Posted March 21, 2017 Share Posted March 21, 2017 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 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.