delphi - VirtualStringTree: タイプが文字列ではないテキストを検索します

Question

検索手順を a に実装し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;