Главная страница
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.018 c
4-39636
Max2002
2003-01-23 12:35
2003.03.13
поиск текста в TWebBrowser


14-39556
Дмитрий К.К.
2003-02-26 15:25
2003.03.13
Виртуозам Flash а


7-39606
Dimedrol
2003-01-14 17:28
2003.03.13
*.prn файл на принтер


3-39233
Ixion
2003-02-23 03:15
2003.03.13
BDE vs ADO


1-39303
cdadmitriy
2003-03-03 10:05
2003.03.13
RichEdit Ограничение Ввода Данных