Текущий архив: 2006.07.16;
Скачать: CL | DM;

Вниз

Ограничение на количество символов в TMemo и TEdit   Найти похожие ветки 

← →
Norfolk ©   (2006-06-27 00:14) [0]

Как проще всего организовать лимит на количество символов (например 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;
Под вопросами нужно организовать забой лишних символов, но как?

---

← →
unknown ©   (2006-06-27 00:26) [1]

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

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

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

---

← →
Norfolk ©   (2006-06-27 00:33) [2]

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

---

Страницы: 1 вся ветка

Текущий архив: 2006.07.16;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.029 c