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