So kannst du zumindest alle Sections auslesen und verwenden:
Delphi-Quellcode:
var VideoLst : TIniFile;
Lst : TStringList;
i : Integer;
begin
VideoLst := TIniFile.Create(PChar(ExtractFilePath(ParamStr(0)) + 'files.ini'));
Lst := TStringList.Create;
try
VideoLst.ReadSections(Lst);
for i := 0 to Lst.Count - 1 do
// Videonamen z.b. in Listbox laden
ListBox1.Items.Add(VideoLst.ReadString(Lst.Strings[i], 'Filmname', ''));
finally
Lst.Free;
VideoLst.Free;
end;
end;
So wie ich das sehe möchtest du aber beim anwählen eines filmes weitere Details anzeigen lassen. Dann solltest du das füllen der Liste global machen.