Hab den anderen Fehler gefunden. Der sucht die Ini Datei im Windows Verzeichnis, findet die natürlich nicht, und erstellt eine neue, die natürlich leer ist.
hier nochmal der komplett korrigierte sourcecode
Delphi-Quellcode:
var
i: integer;
Sec: TStringList;
Ini: TIniFile;
sDatum, sUhrzeit, sBetreff: String;
li: TListItem;
begin
Sec := TStringList.Create;
Ini := TIniFile.Create(ExtractFilePath(Application.ExeName)+'Termine.ini');
Ini.ReadSections(Sec);
for i := 0 to Sec.Count-1 do begin
sDatum := ini.ReadString(Sec.Strings[i], 'Datum', '');
sUhrzeit := ini.ReadString(Sec.Strings[i], 'Uhrzeit', '');
sBetreff:= ini.ReadString(Sec.Strings[i], 'Betreff', '');
li := ListView1.Items.Add;
li.Caption := sDatum;
li.SubItems.Add(sUhrzeit);
li.SubItems.Add(sBetreff);
end;
Ini.Free;
Sec.Free;
end;