delphi - 虚拟字符串树 : Search for a text where type is not a String

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

如果你想获取虚拟 TreeView 单元格文本，那么你可以使用Text属性。这将在内部触发 OnGetText 事件，您将能够获取文本，就像返回文本以在树中显示一样:

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