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

@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

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

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .

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

@Пытливый 3763 / 2267 / 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