Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.06.26;
Скачать: CL | DM;

Вниз

Курсор (каретка)   Найти похожие ветки 

 
Alex-21   (2003-06-11 23:07) [0]

Уважаемые мастера!!!
Пишу такой код:

i:=0;
for i2:=0 to RxRichEdit1.Lines.Count-1 do
begin
s2:=RxRichEdit1.Lines[i2];
i:=i2+i+Length(s2);
if Copy(s2,1,4)="Alex" then
i1:=i;
end;
RxRichEdit1.SelStart:=i1;


Здесь я хотел вставить курсор после последней буквы, находящей в строке, содержащую последнее слово Alex в RxRichEdit1. Но курсор ставится не там, где надо. Почему так происходит? Есть ли другой выход? Может я что-то не так написал?


 
dtrn   (2003-06-12 11:09) [1]

procedure TForm1.BitBtn1Click(Sender: TObject);
var
I,I2,I1:integer;
S2:string;
begin
i:=0;I1:=0;
for i2:=0 to RxRichEdit1.Lines.Count-1 do
begin
s2:=RxRichEdit1.Lines[i2];
if Copy(s2,1,4)="Alex" then
i1:=i+4;
i:=i+Length(s2)+1;
end;
RxRichEdit1.SelStart:=i1;

RxRichEdit1.SetFocus;
end;


 
Alex-21   (2003-06-14 22:54) [2]

Курсор все равно ставится не там, где надо.


 
Song ©   (2003-06-15 12:55) [3]

Pos() - найти "Alex" в строке
EM_LINEINDEX - номер символа с начала строки, в которой слово. К нему прибавить результат Pos() и длину искомого слова и эту цифру прравнять на TMemo.SelStart
Задачка для первоклассника.



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

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

Наверх




Память: 0.47 MB
Время: 0.039 c
14-84608
Карелин Артем
2003-06-09 10:25
2003.06.26
Подскажите компонеты для создания своего FTP-сервера.


1-84307
Мыш
2003-06-15 17:55
2003.06.26
встраиваемый плагин


1-84409
corte ™
2003-06-09 13:35
2003.06.26
всем привет. как можно раскраситьгрид одну строку разными цветом


1-84205
Makhanev A.S.
2003-06-12 15:20
2003.06.26
EInvalidOperation


14-84682
miwa
2003-06-09 15:53
2003.06.26
Поругаем винду?