Musik Player mit dynamischen Playlisten

[BadenPower]

Zitat von Jojo2004:

Ich dachte an playlist : array of TMusicList. Bekomme es aber nicht hin diese zu initialisieren.

i := 1;
playlist[i] := TMusicList.Create;

Habt ihr Ideen bzw. Anregungen für mich? Wäre echt super.

1. Array deklarieren

Delphi-Quellcode:

  TForm1 = Class(TForm)
   //... 
   private
    FPlayList: Array of TMusicList
    //...
   public
    //...
   end;

2. Länge des Array setzen
3. Array befüllen

Delphi-Quellcode:

procedure TForm1.???
begin
  SetLength(FPlayList,5);
  FPlayList[0] := TMusicList.Create;
  FPlayList[1] := TMusicList.Create;
  FPlayList[2] := TMusicList.Create;
  FPlayList[3] := TMusicList.Create;
  FPlayList[4] := TMusicList.Create;
end;

oder:

Delphi-Quellcode:

procedure TForm1.???
var
  liZ1: Integer; 
begin
  SetLength(FPlayList,5);
  for liZ1 := 0 to Length(FPlayList) -1 do
   begin
    FPlayList[liZ1] := TMusicList.Create;
   end; 
end;