Listbox, bei Überschrift-klick kommt ausführlicher Bericht

[Matze]

Du solltest versuchen zu verstehen was du da zusammen kopierst, sonst wirst du nie glücklich. Die Variable "Beschreibung" nutzt du in deinem Code nicht. Du weist ihr lediglich einen Wert zu, doch die Ausgabe fehlt.

Denkbar wäre so etwas:

Delphi-Quellcode:

Beschreibung := readfromini(filename, 'Myvars', 'Beschreibung') + ' (' + readfromini(filename, 'Myvars', 'Zeit') + ')';
AddEvent(readfromini(filename, 'Myvars', 'Überschrift'), Beschreibung, TreeView1);

Das sollte hinter die Beschreibung in Klammern eingeschlossen die Zeit anfügen.

Oder du machst es untereinander:

Delphi-Quellcode:

procedure AddEvent(EventName: string; EventDescription: string; EventDate: string; TView: TTreeView);
var
  TreeNode: TTreeNode;
begin
  TreeNode := TView.Items.AddFirst(nil, EventName);
  TView.Items.AddChild(TreeNode, EventDescription);
  TView.Items.AddChild(TreeNode, EventDate);
end;

Wie man das aufrufst, kriegst du selbst heraus.

Grüße, Matze