VPF::Удаление строк в memo - Форум программистов

Rondo

Дата 7.7.2006, 22:55 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 154
Регистрация: 24.2.2006
Где: там..

Репутация: нет
Всего: нет

Подскажите как в memo удалить каждую 3 строку. Тоесть из строк

0
1
2
3
4
.
.

должно получится

0
1
4
.
.

Это сообщение отредактировал(а) Rondo - 7.7.2006, 22:57

--------------------

Начинающий кодер

Alexeis

Дата 7.7.2006, 23:34 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

вот что у меня получилось

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  i, c : integer;
begin
  c := memo1.Lines.Count mod 3;
  for i := ((memo1.Lines.Count - c - 1) div 3) downto 0
  do
    memo1.Lines.Delete(i * 3 + 2);
end;

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Rondo

Дата 8.7.2006, 00:27 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 154
Регистрация: 24.2.2006
Где: там..

Репутация: нет
Всего: нет

Работате, спасибо. Более замудренно сделано чем я думал smile

--------------------

Начинающий кодер

volvo877

Дата 8.7.2006, 01:14 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 14
Всего: 116

Цитата(Rondo @ 8.7.2006, 00:27

)

Более замудренно сделано чем я думал

Так более понятно?

Код

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
  i := 3 * (memo2.Lines.Count div 3);
  while i > 2 do begin
    memo2.Lines.Delete(pred(i));
    dec(i, 3);
  end;
end;

SilentRoach

Дата 8.7.2006, 20:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 20
Регистрация: 18.4.2006

Репутация: нет
Всего: нет

не, чуваки, это неправильно smile

надо смещение искать, с которого надо начинать удалять.
иначе вашим кодом 3 (третья сначала) строка не факт что будет удалена ;)

Это сообщение отредактировал(а) SilentRoach - 8.7.2006, 20:53

volvo877

Дата 8.7.2006, 21:14 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 14
Всего: 116

Цитата(SilentRoach @ 8.7.2006, 20:52

)

это неправильно

Вообще-то правильность определяется НЕ голословными утверждениями, а элементарным тестированием процедуры. А ты ее соизволил запустить и проверить? Сотрясать воздух просто так не надо.

Если ты считаешь, что приведенный код работает неправильно - то будь добр привести пример данных, на которых, например, моя процедура отработает не так, как описано в задании (и, естественно, не забудь привесть СВОЙ вариант, который мы тоже потестируем...)

Palladin

Дата 8.7.2006, 23:52 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 3
Всего: 17

Согласен с Volvo, я когда спорю пример свой предлогаю, только за него минусы иногда ставят smile

Volvo не нервничай не все такие умные как ты smile

P.S.Volvo в своём репертуаре smile

)))))

--------------------

Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »