Ich hab es mal mit folgender For-Schleife jetzt versucht:
Delphi-Quellcode:
procedure TForm1.ListBoxFilesClick(Sender: TObject);
var
I: Integer;
begin
VideoIni := TIniFile.Create(PChar(ExtractFilePath(ParamStr(0)) + 'files.ini'));
for I := 0 to VideoIni.ReadInteger('Videoindex','Videos',0) - 1 do
begin
MemoDesc.Text := VideoIni.ReadSection('Desc','Desc');
MediaPlayerControl.FileName := VideoIni.ReadSection('Paths','Path');
MediaPlayerControl.Open;
end;
Die INI hab ich auch verändert:
Code:
[Videoindex]
Videos=3
[Paths]
Path=
Path=
Path=
[Name]
Name=
Name=
Name=
[Desc]
Desc=
Desc=
Desc=
Nur bekomm ich jetzt "E2010 Inkompatible Typen: 'TStrings' und 'string'" bei
Delphi-Quellcode:
for I := 0 to VideoIni.ReadInteger('Videoindex','Videos',0) - 1 do
begin
MemoDesc.Text := VideoIni.ReadSection('Desc','Desc'); //Hier und
MediaPlayerControl.FileName := VideoIni.ReadSection('Paths','Path'); //Hier meldet Delphi Fehler
MediaPlayerControl.Open;
end;
Das sind die Fehler, von denen ich geredet hab. Er kompiliert es mir gar nicht erst, weil auf einmal Typen nicht mehr zusammenpassen.