Super klappt alles wunderbar.
Delphi-Quellcode:
procedure TFRemember.Button2Click(Sender: TObject);
var filename, beschreibung:string;
begin
filename := Extractfilepath (application.ExeName) + 'test.ini';
if fileexists(filename) then
Beschreibung := readfromini(filename, 'Myvars', 'Beschreibung') + ' (' + readfromini(filename, 'Myvars', 'Zeit') + ')'+' (' + readfromini(filename, 'Myvars', 'Datum') + ')';
AddEvent(readfromini(filename, 'Myvars', 'Überschrift'), Beschreibung, TreeView1);
Dieser Code ist nun richtig. Als Zusatz zeige ich noch das Datum an.
Code für Datum.
WriteToIni (Filename,'Myvars','Datum',DateToStr(pickerdatum.date));
Danke für die Hilfe Leute!
[edit=Matze][delphi]-Tags repariert. MfG, Matze[/edit]