OK, ich bin wieder auf das vorherige Schema für die INI zurückgegangen.
Code:
[Videoindex]
videos=3
[Video0]
Path=.\datei0.wmv
Name=Name 0
Desc=Beschreibung 0
[Video1]
Path=.\datei1.wmv
Name=Name 1
Desc=Beschreibung 1
[Video2]
Path=.\datei2.wmv
Name=Name 2
Desc=Beschreibung 2
Er zeigt mir aber dennoch einen Eintrag zu viel an.
Ich hab auch mit dem Konstrukt zum Auslesen der Dateieinträge versucht, die Videobeschreibungen zu laden, aber es kommt immer nur die Beschreibung der allerletzten Section dabei raus. Der Code:
Delphi-Quellcode:
procedure TForm1.ListBoxFilesClick(Sender: TObject);
var
I: Integer;
VideoFile : TStringList;
VideoDesc : TStringList;
begin
VideoIni := TIniFile.Create(PChar(ExtractFilePath(ParamStr(0)) + 'files.ini'));
VideoFile := TStringList.Create;
VideoDesc := TStringList.Create;
VideoIni.ReadSections(VideoFile);
VideoIni.ReadSections(VideoDesc);
for i := 0 to VideoFile.Count -1 do
begin
MediaPlayerControl.FileName := VideoIni.ReadString(VideoFile[i],'Path','');
end;
for i := 0 to VideoDesc.Count - 1 do
begin
MemoDesc.Text := VideoIni.ReadString(VideoDesc[i],'Desc','');
end;
Scheint so, als müsste ich etwas umformulieren?