Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=63275&view=findpost&p=436116 Fri, 20 Aug 2004 08:12:18 +0000 TreeView и Data: что к чему??? https://forum.sources.ru/index.php?showtopic=63275&view=findpost&p=436116 Цитата Dynamic @ 20.08.04, 10:57
Почему нельзя просто:
    Child:=TreeView1.Items.AddChildObject(Node,St+Idd, Pointer(p^.id));
    .....
    id := Integer(Node.Data);
??

можно и так....(в принципе так и было....только я упустила из виду самое важное Pointer...прописать перед p^.id... и получалось следовательно неправильно) ... Я так и сделала, как Вы пишете...и всё работает....

Вот, что значит невнимательность.....]]> DELPHIna Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=63275&view=findpost&p=436091 Fri, 20 Aug 2004 07:57:13 +0000 TreeView и Data: что к чему??? https://forum.sources.ru/index.php?showtopic=63275&view=findpost&p=436091
    Child:=TreeView1.Items.AddChildObject(Node,St+Idd, Pointer(p^.id));
    .....
    id := Integer(Node.Data);
??]]> Dynamic Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=63275&view=findpost&p=434387 Thu, 19 Aug 2004 06:40:36 +0000 TreeView и Data: что к чему??? https://forum.sources.ru/index.php?showtopic=63275&view=findpost&p=434387 Цитата RAdmin @ 18.08.04, 23:21
Кароче вот:

Вспомни что я писал

ID:integer;
Data:= Pointer( ID );

а у тебя IDD это string.




     
      {Вывод узла дерева}
      Procedure OutS(p:p_s_type;Col:integer);
      Var
      j:byte;
      Child:TTreeNode;
      Idd:String;
     {FF} ff:integer;
      i:integer;
     
     begin
       j:=1;
       while p<>nil do
         begin
         St:=p^.name;
         Idd:=p^.id;
      {FF}   ff:=StrToInt(Idd);
         Child:=TreeView1.Items.AddChildObject(Node,St+Idd,pointer(ff));


Добавлено в :
Ну или вот на это замени
        Child:=TreeView1.Items.AddChildObject(Node,St+Idd,pointer(strToInt(idd)));


Добавлено в :
Song, вопрос не менялся

Неужели всё было так просто.....пару символов....а столько мучений :wacko:
Спасибо за помощь..... (просто столько эмоций....что надо пар выпустить....)]]> DELPHIna Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=63275&view=findpost&p=434111 Wed, 18 Aug 2004 20:21:04 +0000 TreeView и Data: что к чему??? https://forum.sources.ru/index.php?showtopic=63275&view=findpost&p=434111
Вспомни что я писал

ID:integer;
Data:= Pointer( ID );

а у тебя IDD это string.




     
      {Вывод узла дерева}
      Procedure OutS(p:p_s_type;Col:integer);
      Var
      j:byte;
      Child:TTreeNode;
      Idd:String;
     {FF} ff:integer;
      i:integer;
     
     begin
       j:=1;
       while p<>nil do
         begin
         St:=p^.name;
         Idd:=p^.id;
      {FF}   ff:=StrToInt(Idd);
         Child:=TreeView1.Items.AddChildObject(Node,St+Idd,pointer(ff));


Добавлено в :
Ну или вот на это замени
        Child:=TreeView1.Items.AddChildObject(Node,St+Idd,pointer(strToInt(idd)));


Добавлено в :
Song, вопрос не менялся]]> RAdmin Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=63275&view=findpost&p=434093 Wed, 18 Aug 2004 20:04:37 +0000 TreeView и Data: что к чему??? https://forum.sources.ru/index.php?showtopic=63275&view=findpost&p=434093 DELPHIna, пожалуйста
M
Новый вопрос - новая тема. Это прежде всего, надо для успешного поиска другими участниками.
]]> Song Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=63275&view=findpost&p=434027 Wed, 18 Aug 2004 18:19:40 +0000 TreeView и Data: что к чему??? https://forum.sources.ru/index.php?showtopic=63275&view=findpost&p=434027 Цитата RAdmin @ 18.08.04, 20:58
s:= IntTostr( Integer(Node.Data));
и
Integer(TreeView1.Selected.Item[i].Data);
это одно и тоже (я просто на твой код не смотрел)
------- ТУТ ВСЁ ПРАВИЛЬНО ----------

Но есть у меня сомнения насчёт AddObject (чесно признаюсь ниразу им не пользовался) где-то в этом районе ошибка.

Добавлено в :
Быть может попробуешь заменить AddObject на стандарный способ и применить
Node := Pointer( ID );

Пробовала и твой способ всё равно не получается.....при попытке считать значение Data у подчиненных веток выводится всякая ерунда....если нетрудно посмотри мой код.... правда там много чего закомментировано....в том числе и все способы добавления значения Data в узле.
* Смотреть надо в procedure TForm1.load_base - это загрузка дерева
* в procedure TForm1.TreeRazvorot(Sender: TObject); - я пыталась выделить любой узел по ID
* в procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode); я пыталась проверить соответствие значения Data в выделенных узлах

Я бьюсь над решением уже весь день....не пойму что не так??? :wall: Буду благодарна за любую наводку.....]]> DELPHIna Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=63275&view=findpost&p=434001 Wed, 18 Aug 2004 17:58:06 +0000 TreeView и Data: что к чему??? https://forum.sources.ru/index.php?showtopic=63275&view=findpost&p=434001 и
Integer(TreeView1.Selected.Item[i].Data);
это одно и тоже (я просто на твой код не смотрел)
------- ТУТ ВСЁ ПРАВИЛЬНО ----------

Но есть у меня сомнения насчёт AddObject (чесно признаюсь ниразу им не пользовался) где-то в этом районе ошибка.

Добавлено в :
Быть может попробуешь заменить AddObject на стандарный способ и применить
Node := Pointer( ID );]]> RAdmin Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=63275&view=findpost&p=433963 Wed, 18 Aug 2004 16:55:05 +0000 TreeView и Data: что к чему??? https://forum.sources.ru/index.php?showtopic=63275&view=findpost&p=433963 Цитата RAdmin @ 18.08.04, 19:43
AddObject создаёт нод с указанной DATA, но не изменяет уже сущесвующие.

Дак я и создаю узел с указанной Data...а теперь хочу его вытащить (способ s:= IntTostr( Integer(Node.Data)); мне не подходит ....мне нужно перебрать все узлы и все Data начиная с начала до конца, вот я использую Integer(TreeView1.Selected.Item[i].Data); ....) но не получается :(

И ещё вопрос "Почему для подчиненных узлов Child:=TreeView1.Items.AddChildObject(Node,St+Idd,pointer(idd));
значение integer(TreeView1.Selected.Data) всегда неверное, типа 9865412, а для родителя Node:=TreeView1.Items.AddObject(nil,St+IntToStr(frames[1,n].iddr),pointer(frames[1,n].iddr)); верное???? Т.е. тот идентификатор, который я и заносила....
"]]> DELPHIna Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=63275&view=findpost&p=433954 Wed, 18 Aug 2004 16:43:33 +0000 TreeView и Data: что к чему??? https://forum.sources.ru/index.php?showtopic=63275&view=findpost&p=433954 RAdmin Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=63275&view=findpost&p=433942 Wed, 18 Aug 2004 16:28:30 +0000 TreeView и Data: что к чему??? https://forum.sources.ru/index.php?showtopic=63275&view=findpost&p=433942 Цитата RAdmin @ 18.08.04, 19:25
var
s:string;
ID:integer;

вот так вот вставлять

TreeView1.Items.Item[I].Data:= Pointer( ID );

а вот так вот считывать

s:= IntTostr( Integer(Node.Data) );

А разве AddObject служит не для этого же...в смысле вставлять???? :blink:]]> DELPHIna Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=63275&view=findpost&p=433935 Wed, 18 Aug 2004 16:25:05 +0000 TreeView и Data: что к чему??? https://forum.sources.ru/index.php?showtopic=63275&view=findpost&p=433935 s:string;
ID:integer;

вот так вот вставлять

TreeView1.Items.Item[I].Data:= Pointer( ID );

а вот так вот считывать

s:= IntTostr( Integer(Node.Data) );]]> RAdmin Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=63275&view=findpost&p=433927 Wed, 18 Aug 2004 16:11:38 +0000 TreeView и Data: что к чему??? https://forum.sources.ru/index.php?showtopic=63275&view=findpost&p=433927 Затем по полученным данным строю дерево
     Var
       f1:textfile; filename:s50;
       st: string;
       l,j:integer;
       D, n:integer;
       Node,HNode:TTreeNode;
       p:p_s_type;
       f:Type_frames;
     
      {Вывод узла дерева}
      Procedure OutS(p:p_s_type;Col:integer);
      Var
      j:byte;
      Child:TTreeNode;
      Idd:String;
     
     begin
       j:=1;
       while p<>nil do
         begin
         St:=p^.name;
         Idd:=p^.id;
         Child:=TreeView1.Items.AddChildObject(Node,St,p);
         p:=p^.next;
         end;
     end;
      begin
        repeat
    //считываю из файла и преобразую в процедуре read_frm
         assignFile(f1,ExtractFilePath(Application.ExeName)+'Data\'+'inter.dat');
         {$I-}    reset(f1);   {$I+}
        until ioresult=0;
        while not eof(f1) do read_frm(f1,Count[1]);
        closeFile(f1);
     
        TreeView1.Items.Clear;
        if Count[1]>0 then
        begin
        for n:=1 to Count[1] do
        begin
             St:=frames[1,n].name;
             p:=frames[1,n].synt;
             Node:=TreeView1.Items.AddObject(nil,St,pointer(frames[1,n].iddr));
             HNode:=Node;
             OutS(p,0);
        end;
      end;
    end;

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

          FOR i:=0 To TreeView1.Selected.Count-1 Do
          begin
          IF Integer(TreeView1.Selected.Item[i].Data) = ID
          Then Begin
                TreeView1.Selected.Item[i].Expand(False);
                TreeView1.Selected.Item[i].Selected:=True;
                TreeView1.Repaint;
                Exit;
               End;
          End;


Пишу пока вот так..... Но проверить работу этого куска кода не могу, т.к. значение Integer(TreeView1.Selected.Item[i].Data) всегда неверное, набор цифр 42354154 и т.д. Почему мне никак невытащить значение поля Data???]]> DELPHIna Delphi: Общие вопросы