Delphi-Quellcode:
var
i: integer;
Sec: TStrings;
Ini: TIniFile;
sDatum, sUhrzeit, sBetreff: String;
li: TListItem;
begin
Sec := TStrings.Create;
Ini := TIniFile.Create('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
Ich habs zwar nicht ausprobiert (werd ich auch nicht), sollte aber so funktionieren. Wer Fehler findet darf sie behalten (oder selbst korrigieren) *g*