盒子论坛 v2.1

look this:

https://stackoverflow.com/questions/1967359/populate-a-ttreeview-with-directory-tree-and-filtering
----------------------------------------------
The higher the degree, the greater the respect given to the humblest!RAD 11.3

作者：

cenunus (cenunus)	★☆☆☆☆	-
	普通会员

2022/7/14 9:14:40

2楼：

我主要是想明白如何枚举html的所有元素，并用目录树的形式显示出来，而不是treeview如何使用，查了几天资料没啥结果，delphi的资料太少了，哎，希望各位大神帮忙，谢谢~~~
----------------------------------------------

作者：

hardnut (麦轲数据管家)	★☆☆☆☆	-
	普通会员

2022/7/14 10:02:58

3楼：

直接用TWebBrowser, 处理 DOM
----------------------------------------------
UniKeeper V10.40 -- 您最贴心的个人数据管理助手

作者：

emailx45 (emailx45)	▲▲▲▲△	-
	普通会员

2022/7/14 10:08:53

3楼：

@cenunus

1) create a "recursive" function to walk into directories / sub-directories
.... dir root
------ dir level 1
--------- dir level 2 .... etc...

2) for each directory "FOUND", add it in your treeview "NODE"

procedure TForm1.Button1Click(Sender: TObject);
var
  MyNODE: TTreeNode;
begin
  MyNODE := TreeView1.Items.AddChild(nil, 'my node 1'); // root
  MyNODE := TreeView1.Items.AddChild(MyNODE, 'my sub-node 1.1'); // level 1
  MyNODE := TreeView1.Items.AddChild(MyNODE, 'my sub-node 1.1.1'); // level 2
  //
  MyNODE := TreeView1.Items.AddChild(nil, 'my node 2'); // root
  MyNODE := TreeView1.Items.AddChild(MyNODE, 'my sub-node 2.1'); // level 1
  MyNODE := TreeView1.Items.AddChild(MyNODE, 'my sub-node 2.1.1'); // level 2
end;

此帖子包含附件:

大小:25.4K

----------------------------------------------
The higher the degree, the greater the respect given to the humblest!RAD 11.3

作者：

wr960204 (武稀松)	★☆☆☆☆	-
	盒子活跃会员

2022/7/14 10:12:34

4楼：

http://www.raysoftware.cn/443.html
http://www.raysoftware.cn/511.html
----------------------------------------------
武稀松http://www.raysoftware.cn

作者：

emailx45 (emailx45)	▲▲▲▲△	-
	普通会员

2022/7/14 11:05:48

5楼：

with a simple TSTRINGS you can create your HTML formated
=== NEEDS study about HTML commands / CSS / etc...

procedure TForm1.Button2Click(Sender: TObject);
var
  MyNODE    : TTreeNode;
  MyHTMLPage: TStrings;
  MyText    : string;
begin
  MyNODE := TreeView1.Items.AddChild(nil, 'my node 1');          // root
  MyNODE := TreeView1.Items.AddChild(MyNODE, 'my sub-node 1.1');   // level 1
  MyNODE := TreeView1.Items.AddChild(MyNODE, 'my sub-node 1.1.1'); // level 2
  //
  MyNODE := TreeView1.Items.AddChild(nil, 'my node 2');          // root
  MyNODE := TreeView1.Items.AddChild(MyNODE, 'my sub-node 2.1');   // level 1
  MyNODE := TreeView1.Items.AddChild(MyNODE, 'my sub-node 2.1.1'); // level 2
  //
  MyHTMLPage := TStringList.Create;
  try
    // you can use all HTML command / CSS ... etc... to format your HTML file
    MyHTMLPage.Add('<html xmlns="http://www.w3.org/1999/xhtml" dir="ltr" lang="en">');
    MyHTMLPage.Add('<meta http-equiv="Content-Type" content="text/html; charset="UTF-8" />');
    MyHTMLPage.Add('<title>My Directory:</title>');
    //
    for var MyItem in TreeView1.Items do
    begin
      // <p> Estou criando um link para < a href = " https: // www.mozilla.org/pt-BR/">a página inicial da Mozilla</a>.
      // < / p > MyText := ''.Create('-', 2 * MyItem.Level) + MyItem.Text;
      MyHTMLPage.Add('<a href="file://d:/mydir/' + MyItem.Text + '">' + MyItem.Text + '</p>');
    end;
    //
    MyHTMLPage.Add('</html>');
    MyHTMLPage.SaveToFile(ChangeFileExt(ParamStr(0), '.html'), TEncoding.UTF8);
  finally
    MyHTMLPage.Free;
  end;
end;
----------------------------------------------
The higher the degree, the greater the respect given to the humblest!RAD 11.3

作者：

sail2000 (小帆工作室)	★☆☆☆☆	-
	盒子活跃会员

2022/7/14 17:00:31

6楼：

https://github.com/HemulGM/HTML-Parser

此帖子包含附件:

大小:41.5K

----------------------------------------------
delphi 是兴趣，和工作无关，即使它倒闭。又不靠它 delphi 吃饭，怕甚？

作者：

sczhyq (旺财)	★☆☆☆☆	-
	普通会员

2022/7/21 11:32:00

7楼：

用 Goolge Chrome 浏览器打开网页, 然后按 F12

此帖子包含附件:

大小:159.7K

----------------------------------------------
我84砖家

信息

登陆以后才能回复