Группировка в virtualtreeview

[phpmullin]

Добрый день уважаемые программисты и гости форума, в основном решал проблемы сам и постоянно гуглил. Но сдался и решил задать вопрос спецам. Недавно ознакомился с компонентом vtv, вопросов много конечно, но задам главные.



Вот код загрузки файла в список и его парсинг, так же загрузка в дерево:

procedure TForm1.Button1Click(Sender: TObject);
var
  I2: Integer;
  T: TMyNodeData;
  sl:TstringList;
  i:integer;
  name,pach,razdel,pachtext: TStrings;
  Item: TlistItem;
  xx:string;
begin
  VT.BeginUpdate;
  try
    sl:=TstringList.create; //создаю список (8000 строк)
      sl.LoadFromFile('res\WPI\UserFiles\config.js');
      name := Parse('prog[pn]=[''', ''']', sl.Text); //провожу парсинг
      pach := Parse('cmds[pn]=[''',']',sl.text);
      razdel:=Parse('cat[pn]=[''','''];',sl.text);
      for  i:=0 to sl.Count-1 do
        begin
          if (name <> nil) or (pach<>nil) then
            begin
              try
              T := TMyNodeData.Create; 
              T.Name:= name.Strings[i]; 
              T.Raz:=razdel.Strings[i];
              if (Pos('{x86}',pach.Strings[i])>0) and (Pos('{x64}',pach.Strings[i])>0) then // проверка, все тот же парсинг, все работает на ура.
                begin
                pachtext:=Parse('x86} "%wpipath%\\','"',pach.Strings[i]);
                pachtext.text:=StringReplace(pachtext.text, '\\', '\',[rfReplaceAll, rfIgnoreCase]);
                T.paching:= sDirectoryEdit1.Text+pachtext.text;
                pachtext:=Parse('"',',',pach.Strings[i]);
                pachtext:=Parse('"','''',pachtext.text);
                T.key:=pachtext.text;

                pachtext:=Parse('x64} "%wpipath%\\','"',pach.Strings[i]);
                pachtext.text:=StringReplace(pachtext.text, '\\', '\',[rfReplaceAll, rfIgnoreCase]);
                T.paching2:= sDirectoryEdit1.Text+pachtext.text;
                pachtext:=Parse('"',',',pach.Strings[i]);
                pachtext:=Parse('"','''',pachtext.text);

                T.key2:=pachtext.text;
                end
                else if (Pos('{x86}',pach.Strings[i])<=0) and (Pos('{x64}',pach.Strings[i])>0) then
                begin
                pachtext:=Parse('%wpipath%\\','"',pach.Strings[i]);
                pachtext.text:=StringReplace(sDirectoryEdit1.Text+pachtext.text, '\\', '\',[rfReplaceAll, rfIgnoreCase]);
                T.paching:=pachtext.text;
                xx:=pach.Strings[i];
                delete(xx,1,14);
                pachtext:=Parse('"','''',xx);
                T.key:=pachtext.text;

                T.paching2:='';
                T.key2:='';
                end else
                begin
                pachtext:=Parse('%wpipath%\\','"',pach.Strings[i]);
                xx:=StringReplace(pachtext.text, '\\', '\',[rfReplaceAll, rfIgnoreCase]);
                T.paching:= sDirectoryEdit1.Text+xx;
                xx:=pach.Strings[i];
                delete(xx,1,14);
                pachtext:=Parse('"','''',xx);

                T.key:=pachtext.text;
                T.paching2:='';
                T.key2:='';
                end;
                VT.AddChild(nil, T);
              except
              end;
            end;
        end;
  finally
    VT.EndUpdate;
    name.Free;
    pach.Free;
    sl.Free;
    razdel.Free;
  end;
end;

Вывод в столбцы vtv:

procedure TForm1.VTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
  Column: TColumnIndex; TextType: TVSTTextType; var CellText: string);
var
  P: PMyNodeData;
begin
  P := PMyNodeData(VT.GetNodeData(Node));

  case Column of
   0 : CellText := P.Name;
   1 : CellText := P.Raz;
   2 : CellText := P.paching;
   3 : CellText := P.key;
   4 : CellText := P.paching2;
   5 : CellText := P.key2;
  end;
end;

Хочу сгруппировать по разделам (Офис, мультимедиа)
сортировку по нажатию на заголовок столбца сделал.

Собственно вопрос. Как сгруппировать списки. (Сделать дерево). Заранее огромное спасибо. Буду рад любым советам. Даже Гугл с сылочками. Но конструктивный ответ более устроит. Спасибо!

Возможно мне стоит пересмотреть парсинг, и начать поиск с раздела, а не названия приложения?

[evg_m]

VT.AddChild(nil, T);

mynode:=VT.AddChild(myparentnode, T);

указывать в КАКОЙ ветке создавать -- myparentnode
и запоминать (при необходимости) созданные, чтобы ЕЁ (эту созданную) можно было ПОТОМ указать в качестве корневой(родительской).

[phpmullin]

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

mynode:=VT.AddChild(myparentnode, T);

указывать в КАКОЙ ветке создавать -- myparentnode
и запоминать (при необходимости) созданные, чтобы ЕЁ (эту созданную) можно было ПОТОМ указать в качестве корневой(родительской).

Спасибо большое! Буду капаться.

[phpmullin]

evg_m

при создании формы делаю следующее

procedure TForm1.FormCreate(Sender: TObject);
begin
  VT.NodeDataSize := SizeOf(TMyNodeData);
  VST.NodeDataSize := SizeOf(TVSTRecord);
   sl:=TstringList.create;
      sl.LoadFromFile('res\WPI\UserFiles\config.js');
      name1 := Parse('prog[pn]=[''', ''']', sl.Text);
      pach := Parse('cmds[pn]=[''',']',sl.text);
      razdel:=Parse('cat[pn]=[''','''];',sl.text);
end;

Проблемы памяти, ругается на

xx:=pach.Strings[i];

и ниже на

Data.ElementKey:=pachtext.text;

вот весь код

procedure TForm1.Button2Click(Sender: TObject);
var
  RootNode, ChildNode: PVirtualNode;
  Data: PVSTRecord;
  i,i2:integer;
  T: TMyNodeData;
  S,C,xx:string;
begin
    for  i:=0 to razdel.Count-1 do
    begin
      RootNode := VST.AddChild(VST.RootNode);
      Data := VST.GetNodeData(RootNode);
      if i=0 then Data.ElementRazdel := razdel.Strings[0];
      S:=razdel.Strings[i];
      i2:=i+1;
   if i2<>razdel.Count then
    begin
     C:=razdel.Strings[i2];
     if S=C then
      begin
      ChildNode := VST.AddChild(RootNode);
      Data := VST.GetNodeData(ChildNode);
      Data.ElementName := name1.Strings[i];
      if (Pos('{x86}',pach.Strings[i])>0) and (Pos('{x64}',pach.Strings[i])>0) then
        begin
          pachtext:=Parse('x86} "%wpipath%\\','"',pach.Strings[i]);
          pachtext.text:=StringReplace(pachtext.text, '\\', '\',[rfReplaceAll, rfIgnoreCase]);
          Data.ElementPach:= sDirectoryEdit1.Text+pachtext.text;
          pachtext:=Parse('"',',',pach.Strings[i]);
          pachtext:=Parse('"','''',pachtext.text);
          Data.ElementKey:=pachtext.text;
          pachtext:=Parse('x64} "%wpipath%\\','"',pach.Strings[i]);
          pachtext.text:=StringReplace(pachtext.text, '\\', '\',[rfReplaceAll, rfIgnoreCase]);
          Data.ElementPach2:= sDirectoryEdit1.Text+pachtext.text;
          pachtext:=Parse('"',',',pach.Strings[i]);
          pachtext:=Parse('"','''',pachtext.text);
          Data.ElementKey2:=pachtext.text;
        end
        else if (Pos('{x86}',pach.Strings[i])<=0) and (Pos('{x64}',pach.Strings[i])>0) then
          begin
            pachtext:=Parse('%wpipath%\\','"',pach.Strings[i]);
            pachtext.text:=StringReplace(sDirectoryEdit1.Text+pachtext.text, '\\', '\',[rfReplaceAll, rfIgnoreCase]);
            Data.ElementPach:=pachtext.text;
            xx:=pach.Strings[i];
            delete(xx,1,14);
            pachtext:=Parse('"','''',xx);
            Data.Elementkey:=pachtext.text;
            Data.ElementPach2:='';
            Data.ElementKey2:='';
          end else
          begin
            pachtext:=Parse('%wpipath%\\','"',pach.Strings[i]);
            xx:=StringReplace(pachtext.text, '\\', '\',[rfReplaceAll, rfIgnoreCase]);
            Data.ElementPach:= sDirectoryEdit1.Text+xx;
            xx:=pach.Strings[i];
            delete(xx,1,14);
            pachtext:=Parse('"','''',xx);
            Data.ElementKey:=pachtext.text;
            Data.ElementPach2:='';
            Data.ElementKey2:='';
          end;
      end else Data.ElementRazdel := S;
    end;
  end;
   Data.ElementRazdel := C;
end;

Возможно проблема в цикле, может я что то не догоняю. Заранее огромное спасибо +в карму.


НАШЕЛ проблему, спасибо! Буду думать дальше...