Разбить данные из ячейки на строки

@Kykysik12 · Регистрация: 19.11.2013

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

Всем доброго дня! Итак, вопрос:

Имеется таблица DBGrid, которая выводит данные из базы, лежащей на сервере. К примеру, данные такие:

Фильм1	Вт, Ср, Чт	18:00, 21:30
Фильм2	Пн, Сб	13:00, 15:30, 18:00
Фильм3	Чт	16:00, 20:30

При нажатии на определённую строку выводится окно, в нём DBGrid содержащий информацию ТОЛЬКО выделенной строки, например, при нажатии на вторую строку мы получим окно с таблицей:

Фильм2

Пн, Сб

13:00, 15:30, 18:00

Подскажите, пожалуйста, как сделать, чтобы при нажатии на строку данные выводились не так, как сейчас, а в формате:

Фильм2	Пн	13:00
Фильм2	Пн	15:30
Фильм2	Пн	18:00
Фильм2	Сб	13:00
Фильм2	Сб	15:30
Фильм2	Сб	18:00

Заранее спасибо!

@Алекcей · 14.12.2013, 22:27

Выводить не в dbgrid,а в stringgrid

@Пытливый · 14.12.2013, 22:36

Тут проблема в ином - необходимо содержание поля для второго и третьего столбца разобрать на составляющие.
Я думаю сначала надо прогнать содержание каждого из полей через пару TStringList получив набор строк из дней и времени, а вот уже потом можно это дело вывести хоть в StringGrid а хоть и в ListView - это уже не принципиально.

@Алекcей · 14.12.2013, 23:25

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

@Пытливый · 15.12.2013, 00:43

Ну а зачем писать-то когда есть уже готовый класс который все это сделает? Вот скажем для примера:

Delphi
1
2
3
4
5
6
7
Var
 SL: TStringList;
begin
 SL := TStringList.Create;
 SL.Delimiter := ',';
 SL.DelimitedText := 'Вт, Ср, Чт';
...

и у нас будет список из 3-элементов, что и требовалось:
SL.Strings[0] = 'Вт';
SL.Strings[1] = 'Ср'
SL.Strings[2] = 'Чт'

@SLideR11 · 15.12.2013, 12:45

Сообщение от Пытливый

Вот скажем для примера:

Спасибо, очень полезно. Тоже столкнулся с подобной задачей. Скажите, а как узнать, сколько получилось строк в SL, чтобы правильно разбирать таблицу?

Добавлено через 4 часа 1 минуту
Модератор почему-то посчитал, что это не приемлемо выделять сообщение полностью... Переделаю сообщение.

Сообщение от Пытливый

Delphi
1
2
3
4
5
6
7
Var
*SL: TStringList;
begin
*SL := TStringList.Create;
*SL.Delimiter := ',';
*SL.DelimitedText := 'Вт, Ср, Чт';
...

Но вопрос всё же остался. Подскажите, как вычислить сколько строк получилось.

@Пытливый · 15.12.2013, 12:55

Свойство SL.Count даст количество, только не забудьте что индексы элементов начинаются с 0 следовательно если в цикле, то пишем:

Delphi
1
2
for i := 0 to SL.Count - 1
do ...

@Kykysik12 · 15.12.2013, 12:58 **[ТС]**

Пытливый, Спасибо Вам огромное, очень выручили!

@SLideR11 · 15.12.2013, 12:58

Пытливый, и ещё раз, премного благодарен

Новые блоги и статьи Все статьи Все блоги /
Запрет удаления строк ТЧ документа при определенном условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов 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. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .

@Алекcей 554 / 484 / 191 Регистрация: 11.12.2013 Сообщений: 2,507
	14.12.2013, 22:27
	Выводить не в dbgrid,а в stringgrid 0

@Пытливый 3763 / 2271 / 705 Регистрация: 29.05.2013 Сообщений: 9,622
	14.12.2013, 22:36
	Тут проблема в ином - необходимо содержание поля для второго и третьего столбца разобрать на составляющие. Я думаю сначала надо прогнать содержание каждого из полей через пару TStringList получив набор строк из дней и времени, а вот уже потом можно это дело вывести хоть в StringGrid а хоть и в ListView - это уже не принципиально. 0

@Алекcей 554 / 484 / 191 Регистрация: 11.12.2013 Сообщений: 2,507
	14.12.2013, 23:25
	может быть и разбить строку по разделителю. мне кажется целесообразнее прогонять строку не через TStringList, а написать функцию, которая формировала бы массив или прямо записывала строки в StringGrid. 0

@Kykysik12 3 / 3 / 0 Регистрация: 19.11.2013 Сообщений: 56
	15.12.2013, 12:58 [ТС]
	Пытливый, Спасибо Вам огромное, очень выручили! 0

@SLideR11 5 / 4 / 1 Регистрация: 02.10.2013 Сообщений: 189
	15.12.2013, 12:58
	Пытливый, и ещё раз, премного благодарен 0

Опции темы