VPF::TreeView - Форум программистов

Lence

Дата 21.2.2007, 01:41 (ссылка)

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

Загрузка ...

Чухарадземадзупэ

Профиль
Группа: Участник
Сообщений: 209
Регистрация: 9.5.2006
Где: Ташкент

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

имеется файлик с записями

Группа1
Группа2
Группа3
...

имеется таблица где в поле Group указаны Группа1, Группа2... нужно открыть файлик, прочитать строку - создать в Treeview родителя , открыть таблицу с записями где поле Group равно записи из файлика - и добавить чаилды к данному родителю. чтоб получилось примерно так

Группа1
    Отдел 1
    Отдел 2
Группа2
   Отдел 4
   Отдел 5

итд .... а из кода приведенного ниже получается

Группа1
   Отдел1
       Отдел2
          Отдел4
             Отдел5
Группа2

Помогите плз...

Код


var
TreeNode   : TTreeNode;
s: TStrings;
i: integer;
begin
  s := TStringList.Create;
  s.LoadFromFile ('groups.txt');
///////////////////////////////////////////////////

 
  for i := 0 to s.Count - 1 do
    begin
              treeNode:=TreeView1.Items.Add(nil,s[i]);
              query2.Close;
              query2.SQL.Clear;
              query2.SQL.Add('Select * from "'+Contacts+'contacts.dat" where (Groups) = '''+s[i]+''' ');
              query2.Open;
              while not query2.Eof do
                begin
                  treeNode:=TreeView1.Items.AddChild(TreeView1.Items[i]  , form1.Query2Name.Text);
                  datasource2.DataSet.Next;
                end;

 end;

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

Шуруп, забитый молотком, крепче сидит чем гвоздь, закрученный отверткой ....

VICTAR

Дата 21.2.2007, 02:34 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

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

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

Код


var
TreeNode   : TTreeNode;
s: TStrings;
i: integer;
begin
  s := TStringList.Create;
  s.LoadFromFile ('groups.txt');
///////////////////////////////////////////////////

 
  for i := 0 to s.Count - 1 do
    begin
              treeNode:=TreeView1.Items.Add(nil,s[i]);
              query2.Close;
              query2.SQL.Clear;
              query2.SQL.Add('Select * from "'+Contacts+'contacts.dat" where (Groups) = '''+s[i]+''' ');
              query2.Open;
              while not query2.Eof do
                begin
                  TreeView1.Items.AddChild(treeNode , form1.Query2Name.Text);
                  datasource2.DataSet.Next;
                end;

 end;

Это сообщение отредактировал(а) VICTAR - 21.2.2007, 02:37

Lence

Дата 21.2.2007, 11:30 (ссылка)

(голосов:1)

Загрузка ...

Чухарадземадзупэ

Профиль
Группа: Участник
Сообщений: 209
Регистрация: 9.5.2006
Где: Ташкент

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

Я так и знал что это просто .... но не смог найти ..

VICTAR Спасибо большое !!! smile

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

Шуруп, забитый молотком, крепче сидит чем гвоздь, закрученный отверткой ....

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