| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Ограничение на количество символов в TMemo и TEdit [D2005, XP]

Norfolk ©   (2006-06-27 00:14:00) 

Как проще всего организовать лимит на количество символов (например 100) в TMemo и TEdit?
Для TMemo делаю так:
procedure TMainForm.MQuestionKeyUp(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
 Lable1.Text := 'Осталось ' + IntToStr(100 -
   Length(Memo1.Lines.GetText)) + ' символов):';
 if Length(MQuestion.Lines.GetText) > 1000 then
     ???????
end;
Под вопросами нужно организовать забой лишних символов, но как?

---

Norfolk   (2006-06-27 00:33:00) [1]

Вот что значит простое незнание))
Спасибо большое!

---

unknown   (2006-06-27 00:26:00) [2]

procedure TForm1.FormCreate(Sender: TObject);
begin
 Memo1.MaxLength := 100;
 Edit1.MaxLength := 100;
end;

procedure TForm1.Edit1 Change(Sender: TObject);
begin
 Label1.Caption := 'Осталось ' + IntToStr(100 - Length(Edit1.Text)) +
   ' символов из 100 в Edit1';
end;

procedure TForm1.Memo1 Change(Sender: TObject);
begin
 Label2.Caption := 'Осталось ' + IntToStr(100 - Length(Memo1.Lines.Text)) +
   ' символов из 100 в Memo1';
end;

---

Наверх