Memoda limiti gostermek

Ahbap

Harbi Üye

Forum Üyesi

Katılım

29 Mayıs 2019

Mesajlar

8,562

Tepkime puanı

2

Konum

Mardin

Cinsiyet

1. Bay

Takım

Tarafsız

• 4 Ocak 2021

• #1

Kod:

procedure TMain.TimerTimer(Sender: TObject);
var
  I: Integer;
begin
  I := 125 - Length(Trim(Message.Text));
  Max.Text := IntToStr(I);
end;

 

HarbiMekân

Kurucu Admin

Harbi Üye

Katılım

13 Mart 2019

Mesajlar

12,083

Tepkime puanı

282

• 4 Ocak 2021

• #2

Paylaşım için teşekkürler hocam.

 

SiyahLi

Harbi Üye

Forum Üyesi

Katılım

2 Mayıs 2020

Mesajlar

4,296

Tepkime puanı

17

Takım

Beşiktaş

• 22 Ocak 2021

• #3

Teşekkürler

Forum Sitesi