INI mit Schleife auslesen

[nahpets]

Hallo,

Delphi-Quellcode:

for i := 0 to Sektionen.Count - 1 do 
begin 
  ListBoxFiles.Items.Add(VideoIni.ReadString(Sektionen[i], 'Name', Format('Unbekannter Name %d', [i]))); 
end;

Dir fehlt vermutlich auch das letzte Video
Deine Videos sind von 1 bis 3 nummeriert, die For-Schleife geht von 0 bis 2, Du musst also
ListBoxFiles.Items.Add(VideoIni.ReadString(Sektionen[i], 'Name', Format('Unbekannter Name %d', [i]))); durchListBoxFiles.Items.Add(VideoIni.ReadString(Sektionen[i + 1], 'Name', Format('Unbekannter Name %d', [i + 1]))); ersetzen.
Oder nummeriere die Video in der Ini-Datei auch mit 0 beginnend.