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;

[DeddyH]

Oder statt des Arrays eine TObjectList verwenden, dann muss man sich nicht mit Indizes herumschlagen und muss die Musiklisten (zumindest standardmäßig) später nicht manuell freigeben.

[Jojo2004]

vielen Dank schon mal für die Antworten.

Ich bin mir allgemein etwas unsicher, da die Playlisten in TSringGrid gefüllt werden.
Bei PageControl müsste ich zur Laufzeit jeweils ein neues Stringgrid erstellen (was denke ich kein Problem ist).
Wäre es vielleicht besser anstatt PageControl eher TabControl zu verwenden?

Und wie initialisiere ich eine weitere Playliste zur Laufzeit

Ich glaube da lieg noch viel vor mir.
Habe doch einiges vergessen. Vor allem was OOP angeht.