Заполнить StringGrid из дерева

[artemavd]

Доброе утро! Как можно получить заполненный StrinGrid из дерева, которое выглядит как на рисунке слева? Предполагаю, что дерево будет отображаться в ShellTreeView. Может есть другой способ?

[_Engine_]

А дерево откуда заполняется? Может можно заполнить заранее?
Хотя из дерева заполнить тоже не проблема, пройтись рекурсивно по всем детям.

В чем проблема-то, не очень понятно.

[artemavd]

А дерево откуда заполняется?

Да дерева-то как такового и нету. Просто на рисунке пример того, как может это дерево отображаться через ShellTreeView.

В чем проблема-то, не очень понятно.

Ну как бы в коде и проблема

[_Engine_]

Дам один совет, если дерево довольно-таки большое, то не заполнять его целиком сразу, а заполнять только видимые в данный момент ветки.
Хранить информацию можно в поле Data : Pointer, у каждой ветки есть такое поле.

[artemavd]

Дерево будет довольно таки большое. Кодом можешь помочь? Я с деревьями как-то не очень.

[_Engine_]

Ну вот для примера, как было сделано у меня в одном из проектов:

procedure TFormEquipmentList.FillNodesWithOneDown(Node: TTreeNode);
 var MyTreeData : PMyTreeData;
begin
  if dsEQ.Active then dsEQ.Close;
  If Node <> nil then
  begin
    Node.DeleteChildren;
    if assigned(Node.Data) then
    begin
      dsEQ.ParamByName('ID_IN').Value := PMyTreeData(Node.Data)^.ID;
      PMyTreeData(Node.Data)^.Filled := 1;
    end;
  end else
    dsEQ.ParamByName('ID_IN').Value := null;

  dsEQ.Open;
  while not dsEQ.Eof do
  begin
    if GetNodeByID(dsEQID.Value) = nil then
    begin
      Node := eqTree.Items.AddChild(GetNodeByID(dsEQID_UP.Value),dsEQNAME.Value);
      New(MyTreeData);
      MyTreeData^.ID := dsEQID.Value;
      MyTreeData^.ID_UP := dsEQID_UP.Value;
      if not dsEQID_TECH.IsNull then
        MyTreeData^.ID_TECH := dsEQID_TECH.Value
      else MyTreeData^.ID_TECH := 0;
      MyTreeData^.Filled := 0;
      Node.Data := MyTreeData;
    end;
    dsEQ.Next;
  end;
end;


function TFormEquipmentList.GetNodeByID (ID : Integer) : TTreeNode;
var nd : TTreeNode;
begin
  result := nil;
  nd := EQTRee.Items.GetFirstNode;
  while nd <> nil do
  begin
    if assigned(nd.Data) then
      if PMyTreeData(nd.Data)^.ID = ID then
      begin
        result := nd;
        Exit;
      end;
    nd := nd.GetNext;
  end;
end;

procedure TFormEquipmentList.EqTreeExpanding(Sender: TObject;
  Node: TTreeNode; var AllowExpansion: Boolean);
begin
  if assigned(NOde) then
    if PMyTreeData(Node.Data)^.Filled = 0
    then
      FillNodesWithOneDown(Node);
end;

[artemavd]

Вот код, который создает такое дерево:

procedure TFileThread.Execute;
function CCopy(S, C1, C2: string): string;
begin
  if C1 <> '' then
    Delete(S, 1, Pos(C1, S) + Length(C1) - 1);
  if C2 <> '' then
    Delete(S, Pos(C2, S), Length(S));
  Result := S;
end;
var
  searchResult: TSearchRec;
  i, o: Integer;
  NameDir, NameFile, Buff: string;
begin
    if FindFirst(Form1.Label3.Caption + '\*.pdf', faAnyFile - faDirectory, searchResult) = 0 then
    begin
      repeat
        Buff := searchResult.Name;
        Delete(Buff, 1, Pos('_', Buff));
        Form1.ListBox2.Items.Add(Buff);
        Form1.StatusBar1.Panels[3].Text := IntToStr(Form1.ListBox2.Items.Count) + ' шт.';
        Application.ProcessMessages;
      until FindNext(searchResult) <> 0;
      FindClose(searchResult);
    end;
    for i := 0 to Form1.ListBox2.Count - 1 do begin
      NameDir := Form1.Label3.Caption + '\' + CCopy(Form1.ListBox2.Items.Strings[i],'_','.');
      if not DirectoryExists(NameDir) then
        ForceDirectories(NameDir);
      NameFile := Form1.Edit1.Text + '_' + Form1.ListBox2.Items.Strings[i];
      CopyFile(PAnsiChar(Form1.Label3.Caption + Form1.ListBox2.Items.Strings[o] + '\' + NameFile),
               PAnsiChar(NameDir + '\' + NameFile + ExtractFileExt(Form1.ListBox2.Items.Strings[i])), False);
      //DeleteFile(Edit1.Text + ListBox1.Items.Strings[o] + '\'+ListBox2.Items.Strings[i]);
    end;
end;

в Form1.Label3.Caption хранится путь к папке, т.е. как в данном случае на рисунке это папка 400. Как его переделать, чтобы получить такую таблицу (см. ниже)? В колонке "исходный файл" можно хранить полный путь к файлу (так было бы даже лучше)

[Mad_Cat]

Путь к файлу есть? и нафиг тебе вообще дерево?
пропарсь имя файла и найди все что тебе нужно

[artemavd]

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

[Mad_Cat]

у тебя есть имена файлов? так?
типа вот этого
400_8_212861.pdf
теперь

s1:='400_8_212861.pdf';
s:=s1;
srgd1.cells[0,1]:=copy(s,1,pos('_',s));
delete(s,1,pos('_',s));
srgd1.cells[1,1]:=copy(s,1,pos('_',s));
delete(s,1,pos('_',s));
srgd1.cells[2,1]:=copy(s,1,pos('.',s));
srgd1.cells[5,1]:=s1;

грузишь все названия файлов в Stringlist и в цикле проходишь)
только вместо 1 вот тут srgd1.cells[0,1] и далее по тексту ставишь N строки в Stringlist-е