Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 5 815

/ вопрос открыт /

Здравствуйте, уважаемые эксперты!
Прошу помощи!

Delete
из строки
if Pos(find,Memo1.Lines.Text)<>0 then Memo1.Lines.Delete(k);
удаляет все нечетные строки в Memo а не строку Delete(k).

Lessss Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: Lessss (статус: Посетитель)
Вопрос отправлен: 14 декабря 2011, 14:38
Состояние вопроса: открыт, ответов: 0.


Мини-форум вопроса

Всего сообщений: 8; последнее сообщение — 15 декабря 2011, 10:09; участников в обсуждении: 4.
min@y™

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

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™

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™

min@y™ (статус: Доктор наук), 15 декабря 2011, 08:12 [#7]:

Цитата (Пупкин В В):

че эт за конструкция такая k:=1 memo1.lines.Count - 1 ? мож k:=memo1.lines.Count - 1

Ну извини, скопипастил, исправил, но пропустил.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
RAW

RAW (статус: Посетитель), 15 декабря 2011, 10:09 [#8]:

ну все написано уже... дерзай...

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 22 февраля 2025, 11:56
Выполнено за 0.02 сек.