| 
| 
 | Вопрос # 5 815/ вопрос открыт / | 
 |  Здравствуйте, уважаемые эксперты!Прошу помощи!
 
 Delete
 из строки
 if Pos(find,Memo1.Lines.Text)<>0 then Memo1.Lines.Delete(k);
 удаляет все нечетные строки в Memo а не строку Delete(k).
 
|  |   Вопрос задал: Lessss (статус: Посетитель)Вопрос отправлен: 14 декабря 2011, 14:38
 Состояние вопроса: открыт, ответов: 0.
 |  
 Мини-форум вопросаВсего сообщений: 8; последнее сообщение — 15 декабря 2011, 10:09; участников в обсуждении: 4. 
|   | min@y™ (статус: Доктор наук), 14 декабря 2011, 14:47 [#1]:Покажи кусок кода побольше. Какие значения имеют переменные find, k; какой текст находится в Memo? Вызывается ли эта конструкция в цикле?
 Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп! |  
|   | Пупкин В В (статус: 2-ой класс), 14 декабря 2011, 15:10 [#2]:просто K принимает значения нечетных строк, ну а почему так происходит, из данного куска не ясно. |  
|   | Пупкин В В (статус: 2-ой класс), 14 декабря 2011, 15:12 [#3]:условие тож странное, ведь Memo1.Lines.Text весь текст в мемо |  
|   | Olga_K (статус: Посетитель), 14 декабря 2011, 15:14 [#4]:for k:=1 to memo1.lines.Count do if Pos(find,Memo1.Lines[k])<>0 then Memo1.Lines.Delete(k);
 
 может быть так)
 |  
|   | min@y™ (статус: Доктор наук), 14 декабря 2011, 15:24 [#5]: Цитата (Olga_K): может быть так)  А вот так делать не надо! Надо так:
 
 for k:= memo1.lines.Count - 1 downto 0 do
  if Pos(find, Memo1.Lines[k])<>0 
    then Memo1.Lines.Delete(k);Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп! |  
|   | Пупкин В В (статус: 2-ой класс), 14 декабря 2011, 16:59 [#6]:че эт за конструкция такая k:=1 memo1.lines.Count - 1 ? мож k:=memo1.lines.Count - 1
 |  
|   | min@y™ (статус: Доктор наук), 15 декабря 2011, 08:12 [#7]: Цитата (Пупкин В В): че эт за конструкция такая k:=1 memo1.lines.Count - 1 ? мож k:=memo1.lines.Count - 1  Ну извини, скопипастил, исправил, но пропустил.
 Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп! |  
|   | RAW (статус: Посетитель), 15 декабря 2011, 10:09 [#8]:ну все написано уже... дерзай... |  Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте. |