Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.03.13;
Скачать: 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 вся ветка

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

Наверх




Память: 0.46 MB
Время: 0.017 c
14-39461
wnew
2003-02-24 18:47
2003.03.13
Украинцы и русские, бросьте вы всё это, поднимите себе настр.


1-39373
grei
2003-03-02 19:37
2003.03.13
Открытие файлов через windows


4-39633
TankMan
2002-12-18 01:19
2003.03.13
Как имитировать нажатие мышки в чужом приложении....


3-39188
Becket
2003-02-20 22:42
2003.03.13
Выборка из нескольких таблиц.


14-39463
Colt
2003-02-25 09:32
2003.03.13
Оптимальный инсталятор