在Delphi中，使用TreeView创建结构树，何种方法最好？

Posted 2023-04-24

参考技术A 在Delphi中，使用TreeView创建结构树，何种方法最好？我的办法是：var
TT:Integer;
NN,N1,N2,N3:TTreeNode;
SS:string;begin
Dept.first;
while
not
dept.eof
do
begin
ss:=Dept.FieldsByName('cname').AsString;
TT:=Dept.FieldsByName('NTree').AsInteger;
if
TT=0
then
nn:=TreeView.Items.Add(nil,ss)
else
if
TT=1
then
nn:=TreeView.Items.Add(N1,ss)
else
if
TT=2
then
nn:=TreeView.Items.Add(N2,ss)
end;
Dept.next;
end;很定不是最好的，请教了!

如何在pdf的结构树中添加标题级别标记？

我使用以下代码为屏幕阅读器添加标题级别标签：

Paragraph para = new Paragraph("A guide to key terms").setFontSize(18).setBold();
para.getAccessibilityProperties().setRole(StandardRoles.H1);    
document.add(para);

但是我收到以下错误：

不兼容的类型：段落不能转换为元素。

答案

我可以通过在块中设置角色然后将其添加到段中来添加标题级别标记。

Chunk heading = new Chunk("A guide to key terms
 " , font);
heading.setRole(PdfName.H1);
Paragraph paragraph = new Paragraph(new Chunk(heading));
document.add(paragraph);