So ich benutze nun den Treeview. - hier ein Dankeschön an Matze.
Und eine IniDatei.
Hier der Code
Delphi-Quellcode:
procedure AddEvent(EventName: string; EventDescription: string; TView: TTreeView);
var
TreeNode: TTreeNode;
begin
TreeNode := TView.Items.AddFirst(nil, EventName);
TView.Items.AddChild(TreeNode, EventDescription);
end;
Und für das lesen habe ich
Delphi-Quellcode:
procedure TFRemember.Button2Click(Sender: TObject);
var filename, beschreibung:string;
begin
filename := Extractfilepath (application.ExeName) + 'test.ini';
if fileexists(filename) then
AddEvent(readfromini (filename, 'Myvars', 'Überschrift'), readfromini (filename, 'Myvars', 'Beschreibung'),TreeView1);
Beschreibung := readfromini(filename, 'Myvars', 'Beschreibung') + ' (' + readfromini(filename, 'Myvars', 'Zeit') + ')';
end;
klappt alles super, bis auf die zeit, die ich nicht lesen kann. Diese Zeit kann ich aber in einer Listbox anzeigen lassen mit diesem Code.
Zur Veranschaulichung habe ich ein Bild hochgeladen, dieses ist aber ein bisschen unübersichtlich, da ich noch mitten drin bin. Das Blaue symbolisiert das was in der Treebox erscheinen muss.
Das rote das was in dem Listview erscheint
Das ist der Code, der für die Zeit zuständig ist.
Delphi-Quellcode:
listbox1.items[listbox1.ItemIndex]:=readfromini (filename, 'Myvars', 'Zeit');
Und jetzt zu meiner Frage: Wieso sehe ich dir Zeit beim Treeview nicht?