Вопрос № 143887: Здравствуйте! Подскажите,... как можно выделить строку в Memo1, назначенным в Edit1. Например, Edit1.text:='40'; тогда выделялься строка 40 в Memo1....
Вопрос № 143.887
Здравствуйте! Подскажите,... как можно выделить строку в Memo1, назначенным в Edit1. Например, Edit1.text:='40'; тогда выделялься строка 40 в Memo1.
Отправлен: 14.09.2008, 13:39
Вопрос задал: Jonrusfaq
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Олекса aka SoW
Здравствуйте, ! Действующий код смотрите в приложении.
Приложение:
--------- Вiк живи - вiк учись.
Ответ отправил: Олекса aka SoW (статус: 3-ий класс)
Ответ отправлен: 14.09.2008, 15:46
Отвечает: Genia007
Здравствуйте, ! Накидал вот такую процедуру, возможно не самое лучшее решение:
procedure TForm1.Button1Click(Sender: TObject); var Line: integer; begin Try Line:= StrToInt(Edit1.Text) - 1; except ShowMessage('Введена не строка'); end; If Memo1.Lines.Count >= Line then begin Memo1.SelStart := Memo1.Perform(EM_LINEINDEX, Line, 0); Memo1.SelLength := Length(Memo1.Lines[Line]); Memo1.SetFocus; end; end;
Ответ отправил: Genia007 (статус: 8-ой класс)
Ответ отправлен: 14.09.2008, 19:15