7400       Конференция Delphi SoobCha           письмо # 7401 7402  

Тема: Позиционирование курсора в TMemo
Дата: Mon, 14 Apr 2008 18:19:18 +0400
Кому: "Delphi" <Delphi@soobcha.org>
Кодировка: text/plain; charset="koi8-r"
     Добрый день

Коллеги, подскажите как позиционировать курсор в нужное место?
Если в нужной строке >50 символов нужно встать на 49-й.

Идея такая:
for i:=0 to Memo_To.Lines.Count-1 do
begin
if Length(Memo_To.Lines[i])>50 then
  begin
  ShowMessage('Row '+IntToStr(i+1)+' >50 symbols!');
  Memo_To.SetFocus;
  Memo_To.SelStart :=Kol_Vo+1;
  Memo_To.SelLength :=Length(Memo_To.Lines[i])+1;
  Exit;
  end;
Kol_Vo :=Kol_Vo+Length(Memo_To.Lines[i]);
end;

Но работает как-то криво. Может есть другой вариант?

Cпасибо.

--

С уважением, Алексей
  7400 7402  
 
???Mail.ru ??? ?????
╘ 2000-2006 Сообщество Чайников