Добавить в TreeView поле...

@DenProx · Регистрация: 09.10.2009

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

Всем доброго времени суток. У меня такая ситуация, есть TreeView в который заносится инфа из БД, но вид получается не читабельный, т.к. подчиненные подпункты, состоят из номеров полей... необходимо номера либо заменить на поле с темой, либо добавить к нему поле с темой...

код используется такой:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
 Form5.TreeView1.Items.Add(nil, ADOTable5.FieldByName('Part').CurValue);
      ADOQuery2.SQL.Clear;
      ADOQuery2.SQL.Text := 'select all * from SingleQuestionMode where Part = ' + QuotedStr(ADOTable5.FieldByName('Part').CurValue);
      ADOQuery2.ExecSQL;
      ADOQuery2.Open;
      ADOQuery2.First;
      for j := 1 to ADOQuery2.RecordCount do
        begin
          Form5.TreeView1.Items.AddChildObject(Form5.TreeView1.Items[Form5.TreeView1.Items.Count - j], IntToStr(ADOQuery2.FieldByName('Number').CurValue), Pointer(ADOQuery2.FieldByName('Number').AsString));
          ADOQuery2.Next
        end;
      ADOQuery2.Close;
      ADOTable5.Next

пробывал просто имена полей - Number, заменить на нужный типа:

Delphi
1
Form5.TreeView1.Items.AddChildObject(Form5.TreeView1.Items[Form5.TreeView1.Items.Count - j], ADOQuery2.FieldByName('Theme').CurValue, Pointer(ADOQuery2.FieldByName('Number').AsString));

не работает... думал приплюсовать такой же вариант, прога даже не проходит компиляцию....

какие есть идеи, как это можно реализовать?

@Lord_Voodoo · 27.01.2010, 14:08

DenProx, если ты не можешь изменять вывод, тогда о чем мы с тобой тут мило беседуем? а вот про функцию и конкатенацию (проще говоря соединение строк) надо бы почитать...

@DenProx · 27.01.2010, 14:13 **[ТС]**

Lord_Voodoo, может я не правельно понял, вывод в дерево? или по нажатии в дереве? ))

@Lord_Voodoo · 27.01.2010, 14:14

DenProx, мы вроде бы говорили о читабельном представлении узлов дерева или нет?

@DenProx · 27.01.2010, 14:17 **[ТС]**

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

мы вроде бы говорили о читабельном представлении узлов дерева или нет?

ну вообще да))

Не по теме:

Чет я тупить под вечер стал ))

Добавлено через 44 секунды
Может пример какой есть? читать времени нет...

@Lord_Voodoo · 27.01.2010, 14:29

ну по идее конкатенация:
field1 || field2
cast :
cast (field as data_type)

@DenProx · 27.01.2010, 14:37 **[ТС]**

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

Добавлено через 1 минуту

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

ну по идее конкатенация:
field1 || field2

две вертикальных прога не признает...

@Lord_Voodoo · 27.01.2010, 14:37

DenProx, ну чтобы объединить код и название, их надо привести к одному типу данных...

а как ты написал?

@DenProx · 27.01.2010, 14:39 **[ТС]**

дак они и так приводятся к одному типу - только по отдельности....

через +

@Lord_Voodoo · 27.01.2010, 14:40

DenProx, это можно все сделать одним запросом

@DenProx · 27.01.2010, 14:44 **[ТС]**

я понимаю что можно, но ведь так работает вывод :

Delphi
1
2
3
4
5
for j := 1 to ADOQuery2.RecordCount do
        begin
          Form5.TreeView1.Items.AddChildObject(Form5.TreeView1.Items[Form5.TreeView1.Items.Count - j], IntToStr(ADOQuery2.FieldByName('Number').CurValue)+ADOQuery2.FieldByName('Theme').AsString, Pointer(ADOQuery2.FieldByName('Theme').AsString));
          ADOQuery2.Next
        end;

не работает событие при нажатии на текст в дереве....

@Lord_Voodoo · 27.01.2010, 14:53

Form1.ADOQuery2.ExecSQL;
Form1.ADOQuery2.Open;

вот где вы такое все вычитали, мне интересно... а еще вопрос, ничего не происходит или оно данные не находит?

@DenProx · 27.01.2010, 14:59 **[ТС]**

Lord_Voodoo, пишет что пропущен оператор в запросе... получается что не находит данные...

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

orm1.ADOQuery2.ExecSQL;
Form1.ADOQuery2.Open;
вот где вы такое все вычитали

яж говорю - не я делал)) так было до меня...)

Добавлено через 1 минуту
сейчас стоит такой вариант на обработчик нажатия -

Delphi
1
Form1.ADOQuery2.SQL.Text := 'select * from SingleQuestionMode where Number AND Theme = ' + TreeView1.Selected.Text;

@Lord_Voodoo · 27.01.2010, 15:00

DenProx, ну так трассировку используй и глянь, что там вообще в запросе

Number AND Theme - и чему равен Number или на усмотрение программы?

@DenProx · 27.01.2010, 15:06 **[ТС]**

при выполнении запроса (ADOQuery2.Open ) вылетает ошибка

@DenProx · 27.01.2010, 15:07 **[ТС]**

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

и чему равен Number или на усмотрение программы?

Number всегда разный - это номер записи... относительно него все и делается....

@Lord_Voodoo · 27.01.2010, 15:14

DenProx, понимаешь, в запросе ну никак не катит такого рода запись, если в разделе условий указал поле, укажи, чему оно равно, иначе это просто ошибка в синтаксисе запроса, о чем тебе ошибка и говорит... попробуй в условии том написать так:
cast(Number as char(3)) || ' ' || Trim(Theme) = ....

@DenProx · 27.01.2010, 15:18 **[ТС]**

Lord_Voodoo, транслятор не пропускает... пишет Missing operator or semicolon, и показывает на место после кавычки перед +

@Lord_Voodoo · 27.01.2010, 15:23

а ты кавычки задвоил?

@DenProx · 27.01.2010, 15:25 **[ТС]**

сделал, но пишет теперь при нажатии - неопознаная ошибка...

@Lord_Voodoo · 27.01.2010, 15:35

DenProx, какая именно? и код покажи

Новые блоги и статьи Все статьи Все блоги /
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .
Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	27.01.2010, 14:08
	DenProx, если ты не можешь изменять вывод, тогда о чем мы с тобой тут мило беседуем? а вот про функцию и конкатенацию (проще говоря соединение строк) надо бы почитать... 0

@DenProx Техник 318 / 176 / 27 Регистрация: 09.10.2009 Сообщений: 3,109
	27.01.2010, 14:13 [ТС]
	Lord_Voodoo, может я не правельно понял, вывод в дерево? или по нажатии в дереве? )) 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	27.01.2010, 14:14
	DenProx, мы вроде бы говорили о читабельном представлении узлов дерева или нет? 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	27.01.2010, 14:29
	ну по идее конкатенация: field1 \|\| field2 cast : cast (field as data_type) 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	27.01.2010, 14:37
	DenProx, ну чтобы объединить код и название, их надо привести к одному типу данных... а как ты написал? 0

@DenProx Техник 318 / 176 / 27 Регистрация: 09.10.2009 Сообщений: 3,109
	27.01.2010, 14:39 [ТС]
	дак они и так приводятся к одному типу - только по отдельности.... через + 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	27.01.2010, 14:40
	DenProx, это можно все сделать одним запросом 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	27.01.2010, 14:53
	Form1.ADOQuery2.ExecSQL; Form1.ADOQuery2.Open; вот где вы такое все вычитали, мне интересно... а еще вопрос, ничего не происходит или оно данные не находит? 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	27.01.2010, 15:00
	DenProx, ну так трассировку используй и глянь, что там вообще в запросе Number AND Theme - и чему равен Number или на усмотрение программы? 0

@DenProx Техник 318 / 176 / 27 Регистрация: 09.10.2009 Сообщений: 3,109
	27.01.2010, 15:06 [ТС]
	при выполнении запроса (ADOQuery2.Open ) вылетает ошибка Миниатюры 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	27.01.2010, 15:14
	DenProx, понимаешь, в запросе ну никак не катит такого рода запись, если в разделе условий указал поле, укажи, чему оно равно, иначе это просто ошибка в синтаксисе запроса, о чем тебе ошибка и говорит... попробуй в условии том написать так: cast(Number as char(3)) \|\| ' ' \|\| Trim(Theme) = .... 0

@DenProx Техник 318 / 176 / 27 Регистрация: 09.10.2009 Сообщений: 3,109
	27.01.2010, 15:18 [ТС]
	Lord_Voodoo, транслятор не пропускает... пишет Missing operator or semicolon, и показывает на место после кавычки перед + 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	27.01.2010, 15:23
	а ты кавычки задвоил? 0

@DenProx Техник 318 / 176 / 27 Регистрация: 09.10.2009 Сообщений: 3,109
	27.01.2010, 15:25 [ТС]
	сделал, но пишет теперь при нажатии - неопознаная ошибка... 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	27.01.2010, 15:35
	DenProx, какая именно? и код покажи 0