Ilość znaków w „TMemo”

0

Witam
Mam takie pytanie jak zrobić że gdy w „Memo” będzie więcej niż 100 znaków w tedy pojawia się wiadomość typu: ShowMessage(‘Memo jest pełne’);

0
OnKeyPress
If ... Then
Length(Memo1.Text)
ShowMessage('Memo jest pełne')

a teraz ja mam do ciebie pytanie
"czym sie różni dział Delphi/Pascal od Newbie?"

0
procedure TForm1.Memo1Change(Sender: TObject);
begin
     if Length(Memo1.Text) > 100 then Showmessage('Jest 100 znaków w memo');
end;

MASAKRA [rotfl]

0

Dlaczego ludzie nawet nie próbują rozwiązywać TAK BANALNYCH problemów sami? :( Za czasów, kiedy internet nie był tak powszechny było zupełnie inaczej - lepiej.

0

Z internetem niby łatwiej a im dalej nie chce się szukać, ani myśleć tylko czekają aż im ktoś odpowie. [rotfl] [glowa]

0

to skoro RedbaK napisal juz rozwiazanie to ja tez napisze:

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin

 if Length(Memo1.Text) >= 100 then
  begin
   Key := #0;
   ShowMessage('Memo jest pełne');
  end;

end;

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0