Скачать: CL | DM;

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

← →
Yegor D   (2003-06-11 10:15) [0]

Subj пытался делать двумя способами: первый - пока число строк > N, удаляем первую: Memo1.Lines.Delete (0) (BeginUpdate и EndUpdate производил). Второй - загонять Memo1.Text в LocalText: string, отсчитывать с конца N символов #10 и копировать остаток строки после N-го #10.

Первый способ не устраивает своей тормознутостью (тысяча строк удаляется слишком долго). Второй - тем, что количество #10 зависит от размеров Memo при WordWrap=true.

Подскажите какой-нибудь способ сабжа, который был бы быстрым и ограничивал именно фактическое кол-во строк, а не число строк при текущих размерах Memo.

---

← →
Yegor D ©   (2003-06-11 11:57) [1]

forum popup mesg

---

← →
Palladin ©   (2003-06-11 12:22) [2]

Отличный способ ограничить число строк это не добавлять туда лишние

---

← →
dataMaster ©   (2003-06-12 11:49) [3]

Вот нашел на Торри:

procedure TForm1.Memo1Change(Sender: TObject);
const
MaxLineCount = 5;
begin
if Memo1.Lines.Count > MaxLineCount then
// undo the last change
// letze Дnderung rьckgдngig machen
Memo1.Perform(EM_UNDO, 0, 0);
// The EM_EMPTYUNDOBUFFER message clears the undo flag,
// which means that you can no longer undo your last change
// to the edit control.
// Die Message EM_EMPTYUNDOBUFFER lцscht das UnDo Flag,
// damit kann die letzte Дnderung nicht Rьckgдngig gemacht werden.
Memo1.Perform(EM_EMPTYUNDOBUFFER, 0, 0);
end;

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.015 c