|
Вопрос # 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]:
ну все написано уже... дерзай...
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|