Ich bekomme es irgendwie nicht hin, er speichert mir nur den Kompletten String der Open Files in meinen Array, wahrscheinlich weil ich keine schleife gesetzt habe. Die habe ich nicht hinbekommen. Warnung lautet immer Schleifenvariable muss eine einfache lokale Variable sein!
Hier mal ein kurzer Auszug aus meinem Quelltext:
Delphi-Quellcode:
if OpenDialog1.Execute = True then begin
if OpenDialog1.Files.Count > 0 then begin
// Auslesen der Dateien von OpenDialog1 in die ListBox
//Listbox1.Items.Text:= Opendialog1.Files.Text;
// if opendialog1.Files.Count > 0 then begin
[b]//for Datei := 0 to High(A) do;
SetLength(A, 1000);
A[Datei] := opendialog1.Files.Text;
Listbox1.Items[Datei] := ExtractFilename(A[DateiID]);
//Inc(Datei);
//end;[/b]
DateiID := 0; // Es wird der erste Titel ausgewählt... !!!
//Mediaplayer1.FileName := Listbox1.Items[0]; // Hier wird der erste Eintrag aus der Liste dem Filename zugewiesen
mediaplayer1.FileName := A[0]+ Listbox1.Items[0];
end else begin
Mediaplayer1.FileName := OpenDialog1.Filename;
end;
Mediaplayer1.Open;
btnPlay.Enabled := True;
Vielleicht könnte ich ja noch einen Tipp bekommen.
Danke im Voraus
Matze
[edit=Daniel B]Delphi-Tags eingefügt. Mfg, Daniel B[/edit]