TTreeNode.Data verwenden

[Christian Seehase]

Moin Chewie,

also wenn ich das so mache geht's auch:

Delphi-Quellcode:

procedure TfrmMAIN.TreeView1Change(Sender: TObject; Node: TTreeNode);

  function GetUsedFunctions : TStringList;
  begin
    Result := TStringList.Create;
    Result.Add('Zeile1');
    Result.Add('Zeile2');
  end;

var
  i : integer;

begin
  if Node = nil then exit;
  if Node.HasChildren then exit;
  if Node.Data = nil then
  begin
    Node.Data := GetUsedFunctions;
  end;
  ListBox1.Items.BeginUpdate;
  try
    ListBox1.Items.Clear;
    ListBox1.Items.AddStrings(TStrings(Node.Data));
  finally
    ListBox1.Items.EndUpdate;
  end;
end;

Welchen Compilierfehler bekommst Du denn?
Ich vermute mal, dass es am ^ liegt.
Das .Strings kannst Du übrigens auch weglassen.

Was Du allerdings nicht weglassen darfst:
Die über Data zugänglichen Stringlisten müssen auch wieder freigegeben werden.