Текущий архив: 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.015 c
