Главная страница
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.016 c
1-39313
northwind
2003-03-04 14:50
2003.03.13
Timer


3-39165
Behemoth
2003-02-20 16:13
2003.03.13
По поводу производительности MS SQL...


3-39198
MsGuns
2003-02-21 12:10
2003.03.13
Алгоритмика триггера


14-39542
Nehto
2003-02-26 12:56
2003.03.13
Podskazhite please : gde mozhno skachat ikonki dlja knopok?


14-39529
Ruf
2003-02-24 10:15
2003.03.13
заблокировать инет