Удалить пустые строки в ListBox и собрать строки вместе

@920403 · Регистрация: 01.09.2017

Студворк — интернет-сервис помощи студентам

Допустим в ListBox есть строки с пропуском:

1 asdf
2 qwerty
3
4 zxcvbb
5
6 uyuuty

Нужна такая функция, что-бы в итоге получилось так:

1 asdf
2 qwerty
4 zxcvbb
6 uyuuty

@northener · 22.01.2019, 02:40

Сообщение от 920403

Допустим в ListBox есть строки с пропуском:

Для этого "допустим" я могу дать вам код. Но я (и н только я) очень не люблю давать какой-то код для "допустим".
У вас есть реальная задача, которую вам надо решить? Так представьте нам её полную формулировку.

@920403 · 22.01.2019, 02:55 **[ТС]**

northener, Благодарю вас за внимание к теме! Я уже нашёл решение только что.

Delphi
1
2
for i := ListBox1.Items.Count - 1 downto 0 do
  if ListBox1.Items[i] = '' then ListBox1.Items.Delete(i);

@northener · 22.01.2019, 02:59

Сообщение от 920403

northener, Благодарю вас за внимание к теме! Я уже нашёл решение только что.

Не за что.

Flip · 22.01.2019, 03:04

Можно удалить пустые строки и через Stringlist

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TForm1.Button1Click(Sender: TObject);
var
  SL : TStringList;
  I  : integer;
begin
  SL := TStringList.Create;
  SL.Sorted := true;
 
  SL.AddStrings(ListBox1.Items);
 
  I := 0;
  while I < SL.Count do
    if SL[I] = '' then
      SL.Delete(I)
    else inc(I);
  ListBox1.Clear;
  ListBox1.Items.AddStrings(SL);
  SL.Destroy;
end;

@920403 · 22.01.2019, 03:17 **[ТС]**

Ашотик2018, Спасибо за вариант решения!

Добавлено через 10 минут
Что у нас общего? Это ночной образ жизни

@D1973 · 22.01.2019, 05:45

Ашотик2018, как по мне - то это уже избыточно... Хотя - задачи разные бывают...
и еще маленькое уточнение: строка в ListBox может быть визуально пустой, например, состоять из одних пробелов. Но действительно пустой она от этого не становится (пробел - такой же полноправный символ, как и буквенно-числовые) и Ваша проверка (и проверка 920403) просто не сработает...
А вот так - как с добрым утром:

Delphi
1
if Length(Trim(ListBox1.Items[i])) = 0 then ...

@AHBAR · 22.01.2019, 06:12

Ашотик2018, Вашенский код с корректировкой от D1973 будет полезен в том случае, если заранее известно, что количество строк в ListBox будет очень большим числом. В таком случае операция удаления построчно будет происходит невизуально без ненужной "прорисовки" на экране. Если число этих строк - небольшое, то код избыточен.

@Nanotentacle · 22.01.2019, 06:59

Сообщение от AHBAR

Ашотик2018, Вашенский код с корректировкой от D1973 будет полезен в том случае, если заранее известно, что количество строк в ListBox будет очень большим числом. В таком случае операция удаления построчно будет происходит невизуально без ненужной "прорисовки" на экране. Если число этих строк - небольшое, то код избыточен.

Могу ошибаться, но проблема с прорисовкой после каждого удаления решается с помощью

Delphi
1
2
3
ListBox.Items.BeginUpdate;
... //проводим операции удаления/вставки/редактирования
ListBox.Items.EndUpdate;

@AHBAR · 22.01.2019, 08:57

Сообщение от Nanotentacle

Могу ошибаться, но проблема с прорисовкой после каждого удаления решается с помощью

не пробовал так.. но можно в принципе и Visible убирать

Flip · 22.01.2019, 09:06

Сообщение от D1973

(пробел - такой же полноправный символ, как и буквенно-числовые) и Ваша проверка (и проверка 920403) просто не сработает...

Я в курсе, поэтому проверил сначала... все убирает, в одном из items специально сделал кучу пробелов. И при сортировке TStringList их убирает.
Название: SL.png
Просмотров: 111

Размер: 5.1 Кб

Название: SL.png
Просмотров: 111

Размер: 5.1 Кб

Сообщение от D1973

как по мне - то это уже избыточно... Хотя - задачи разные бывают...

Согласен полностью. Это всего лишь один из вариантов как можно сделать...Я в душе не знаю сколько там будет items в этом ListBox. И если их там будет ого-го сколько, то TStringList самый оптимальный вариант.

@D1973 · 22.01.2019, 10:25

Сообщение от Ашотик2018

И при сортировке TStringList их убирает

Не воспроизводится у меня такое поведение...
Вот то, что было: первые 2 "пустые" строки заполнены пробелами, 3-я пустая строка - реально пустая...

Удалить пустые строки в ListBox и собрать строки вместе

А вот что получается при использовании Вашего кода... Более того, я сомневаюсь, что ТС-у необходимо менять порядок следования строк...

@920403 · 22.01.2019, 13:05 **[ТС]**

D1973, Да, конечно, вы правы в том, что со знаками пробелов этот код не работает, но скорее это исключительная ситуация, что-бы создать её, нужно ещё постараться специально ручками создать эти пробелы в файле, с которого затем будем считывать в ListBox. Или же мы специально запишем эти пробелы. В обычных операциях удаления или добавления строк в файлы, знаки пробелов не могут образоваться, там лишь пустая строка образуется. Но раз уж заговорили об такой ситуации, что мешает создать ещё одно условие, хотя я не пробовал так делать, но возможно создать цикл, где будем пересчитывать именно пробелы от 1 до 100 например, и затем привяжем через переменную к условию. Просто интересно, попробуем сделать так.

@D1973 · 23.01.2019, 04:15

Не по теме:

Сообщение от 920403

но возможно создать цикл, где будем пересчитывать именно пробелы от 1 до 100 например, и затем привяжем через переменную к условию

Да уж, мы не ищем легких путей... Городить такой огород, вместо того, чтобы одну функцию Trim() использовать...

Сообщение от 920403

это исключительная ситуация, что-бы создать её, нужно ещё постараться...

Не факт! Когда я сам себе и для себя же готовлю файл - я уверен в результате и могу позволить некоторые вольности в коде. Если файл готовит кто-то там - результат может быть любым и программа должна быть к этому готова...

@920403 · 23.01.2019, 11:35 **[ТС]**

D1973, Я согласен с вами, просто бывает лень очень долго возиться с одним проектом, так как если порыться досконально, то много чего придётся долепливать и переделывать. Работа с файлами всегда требует множество разных проверок перед использованием. Например задача - приложение считывающее файл и сохраняющее в файл, вроде просто, но нужно быть готовым ко всему как вы сказали:

При запуске программы
1. Что если директории и файла не существует?
2. Что если директория существует но файл отсутствует?
3. директория и файл существуют, но:
строки в файле удалены
строки испорчены пробелами
есть пропуски строк
файл превратили в хаотический набор символов
файл переименовали или изменили расширение

При выполнении программы, нажатии кнопок и тп
4. А что будет если во время работы программы, вручную удалить файл или папку или испортить файл как сказано выше?

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@920403 62 / 48 / 20 Регистрация: 01.09.2017 Сообщений: 381

	Удалить пустые строки в ListBox и собрать строки вместе 22.01.2019, 02:10. Показов 3856. Ответов 14 Метки нет (Все метки) Допустим в ListBox есть строки с пропуском: 1 asdf 2 qwerty 3 4 zxcvbb 5 6 uyuuty Нужна такая функция, что-бы в итоге получилось так: 1 asdf 2 qwerty 4 zxcvbb 6 uyuuty 0

@920403 62 / 48 / 20 Регистрация: 01.09.2017 Сообщений: 381
	22.01.2019, 03:17 [ТС]
	Ашотик2018, Спасибо за вариант решения! Добавлено через 10 минут Что у нас общего? Это ночной образ жизни 0

@AHBAR 1077 / 488 / 316 Регистрация: 05.04.2013 Сообщений: 2,141
	22.01.2019, 06:12
	Ашотик2018, Вашенский код с корректировкой от D1973 будет полезен в том случае, если заранее известно, что количество строк в ListBox будет очень большим числом. В таком случае операция удаления построчно будет происходит невизуально без ненужной "прорисовки" на экране. Если число этих строк - небольшое, то код избыточен. 0

@920403 62 / 48 / 20 Регистрация: 01.09.2017 Сообщений: 381
	22.01.2019, 13:05 [ТС]
	D1973, Да, конечно, вы правы в том, что со знаками пробелов этот код не работает, но скорее это исключительная ситуация, что-бы создать её, нужно ещё постараться специально ручками создать эти пробелы в файле, с которого затем будем считывать в ListBox. Или же мы специально запишем эти пробелы. В обычных операциях удаления или добавления строк в файлы, знаки пробелов не могут образоваться, там лишь пустая строка образуется. Но раз уж заговорили об такой ситуации, что мешает создать ещё одно условие, хотя я не пробовал так делать, но возможно создать цикл, где будем пересчитывать именно пробелы от 1 до 100 например, и затем привяжем через переменную к условию. Просто интересно, попробуем сделать так. 0

@920403 62 / 48 / 20 Регистрация: 01.09.2017 Сообщений: 381
	23.01.2019, 11:35 [ТС]
	D1973, Я согласен с вами, просто бывает лень очень долго возиться с одним проектом, так как если порыться досконально, то много чего придётся долепливать и переделывать. Работа с файлами всегда требует множество разных проверок перед использованием. Например задача - приложение считывающее файл и сохраняющее в файл, вроде просто, но нужно быть готовым ко всему как вы сказали: При запуске программы 1. Что если директории и файла не существует? 2. Что если директория существует но файл отсутствует? 3. директория и файл существуют, но: строки в файле удалены строки испорчены пробелами есть пропуски строк файл превратили в хаотический набор символов файл переименовали или изменили расширение При выполнении программы, нажатии кнопок и тп 4. А что будет если во время работы программы, вручную удалить файл или папку или испортить файл как сказано выше? 0

Удалить пустые строки в ListBox и собрать строки вместе

Решение