Question

我想对VirtualStringTree执行搜索过程，我想通过将搜索文本与节点中的文本进行比较而不是从指针（例如Data^.Column0）进行比较来实现。这并不总是String。

请帮我提一下从节点恢复文本的建议。

为了更好地理解，请参阅下面的代码（我从Lazarus调整一个例子）

type
  PTreeData = ^TTreeData;
  TTreeData = record
    Column0: TDate; //Date
    Column1: Integer; //Integer
    Column2: String;
  end;

procedure TForm1.VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
 Column: TColumnIndex; TextType: TVSTTextType; var CellText: WideString);
var
  Data: PTreeData;
begin
  Data := VST.GetNodeData(Node);
  case Column of
    0: CellText := DateToStr(Data^.Column0); //2015-05-11 or 11-05-2015
    1: CellText := IntToStr(Data^.Column1) + ' days'; //22 days
    2: CellText := Data^.Column2;
  end;
end;

Answer 1

如果要获取虚拟树视图单元格文本，则可以使用Text属性。这将在内部触发OnGetText事件，您将能够获取文本，就像您将其返回以显示在树中一样：

var
  S: string;
  Node: PVirtualNode;
  Column: TColumnIndex;
begin
  ...
  S := VirtualStringTree.Text[Node, Column];
end;

VirtualStringTree：搜索type不是String的文本

1 个答案: