VST und Gruppenbildung

[omata]

Delphi-Quellcode:

procedure TSearchResultForm.VST_SearchResultGetText(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
  var CellText: WideString);
var
  daten: TObject;
begin
  daten := VST_SearchResult.GetNodeData(Node)^;
  case Column of
    0: if daten is TOSearchResult then
         CellText := IntToStr(TOSearchResult(daten).Number);
    1: begin
         if daten is TOParentPos then
           CellText := TOParentPos(daten).Position
         else if daten is TOSearchResult then
           CellText := TOSearchResult(daten).Kategorie;
       end;
    2: begin
         if daten is TOParentPos then
           CellText := TOParentPos(daten).TextSnip
         else if daten is TOSearchResult then
           CellText := TOSearchResult(daten).Ueberschrift;
       end;
  end;
end;