VirtualTreeviewXML für Delphi XE+ und VirtualTreeView 5+

[Jens01]

Danke, konnte anfangs die XML-Datei nicht ins VST bekommen. Und ich mußte diese Valuecolumn auf 1 setzen, da ich die Komponente nicht registrieren wollte. Hier mein Code :

Delphi-Quellcode:

  TVirtualStringTree = class(TXMLTree);

  TForm2 = class(TForm)
    VST1: TVirtualStringTree;
    procedure FormCreate(Sender: TObject);
  private
  public
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
var
  sl: TStringList;
begin
  VST1.ValueColumn := 1;

  sl := TStringList.Create;
  try
    sl.LoadFromFile('C:\temp\VSTXML\TestImport.xml');
    VST1.Xml := sl.Text;
  finally
    sl.Free
  end;
end;