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

RichEdit Ограничение Ввода Данных   Найти похожие ветки 

← →
cdadmitriy ©   (2003-03-03 10:05) [0]

Задача :
1. RichEdit1.Lines.Count<=MaxRow
2 Length(RichEdit1.Lines[ALL])<=MaxCol


Я делаю ТАК НО работает не очень корректно Может кто знает
другое решение на ввод ( MaxRow ~ =< 4 MaxCol~<=20 )
по ограничению ввода или другое принцип ...?


if RichEdit1.Lines.Count>MaxRow Then Begin
I1:=RichEdit1.Lines.Count-1; For I:=MaxRow To I1 Do RichEdit1.Lines.Delete(I);
End;
For I:=0 To RichEdit1.Lines.Count-1 Do IF Length(RichEdit1.Lines[I])>MaxCol Then Begin
S:=Copy(RichEdit1.Lines[I],1,MaxCol); RichEdit1.Lines.Delete(I); RichEdit1.Lines.Insert(i,S);
End;

---

← →
cdadmitriy ©   (2003-03-04 10:48) [1]

????

---

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

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



Память: 0.44 MB
Время: 0.01 c