|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
24.05.2011, 15:13 | #1 |
Регистрация: 23.05.2011
Сообщений: 3
|
Перенос строки Memo
Здравствуйте.
На фомне 2 Мемо и Edit. В первом ввожу текст. После того ввожу слово в Edit,e. Нужно, чтобы В Memo1 находились строки с этим словом и переносились в Memo2. Сделал вот что: procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin if (Memo1.Lines.Count > 0) and (Memo2.Lines.Count > 0) then begin Memo2.Lines.Clear; for i:= 1 to Memo1.Lines.Count do if Pos(edit1.Text, Memo1.Lines.Strings[i]) <> 0 then Memo2.Lines.Add(Memo1.Lines.Strings[i]); end; end; Что я делаю не так ? |
24.05.2011, 15:24 | #2 |
Пользователь
Регистрация: 27.04.2009
Сообщений: 48
|
Ошибка:
Код:
Но нужно учесть что если предложение будет на две строки, и в нем искомое слово, то перенесется только часть предложения. |
24.05.2011, 15:40 | #3 |
Регистрация: 23.05.2011
Сообщений: 3
|
Спасибо, а как сделать так, чтобы переносилось всё предложение, если предложение на 2 строки или больше
|
24.05.2011, 15:49 | #4 |
Пользователь
Регистрация: 27.04.2009
Сообщений: 48
|
Если в задании ничего по этому поводу не сказано, то просто установить формат ввода в виде сообщения, допустим разместить метку над полем, его в свою очередь сделать пошире, на сколько возможно, а в метке написать "Каждое предложение вводить в одну строку, новое предложение через "Enter" с новой строки".
Либо добавлять поиск точки в предложение, тогда тоже устанавливать формат ввода, что в конце предложения обязательно ставить точку... в общем то вариантов решения много, но нужно отталкиваться от задания. |
24.05.2011, 16:22 | #5 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
попробуйте так:
Код:
и строчки в Memo нумеруются от нуля. индекс первой - 0 индекс последней, соответственно Memo1.Lines.Count-1 |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Memo, перенос строк | Dominatorsha | Помощь студентам | 4 | 29.12.2010 17:30 |
Memo перенос строк. | mt10forex | Помощь студентам | 7 | 07.07.2010 09:23 |
memo поиск и перенос строки | andrey poki | Общие вопросы Delphi | 4 | 22.03.2009 06:54 |
Перенос строки | boostman | Общие вопросы Delphi | 2 | 08.08.2008 18:12 |