Changeset 75 for trunk/Packages/CoolAudio/Playlist.pas

Timestamp:

Mar 26, 2024, 11:27:01 PM (8 months ago)

Author:

chronos

Message:

• Modified: Removed U prefix from CoolAudio package unit names.

File:

• trunk/Packages/CoolAudio/Playlist.pas (moved) (moved from trunk/Packages/CoolAudio/UPlaylist.pas ) (4 diffs)

trunk/Packages/CoolAudio/Playlist.pas

@@ -1 @@
-unit UPlaylist;
-
-{$mode delphi}{$H+}
+unit Playlist;
 
 interface
 
 uses
-  Classes, SysUtils, Contnrs, UAudioSystem;
+  Classes, SysUtils, Generics.Collections, AudioSystem;
 
 type
@@ -30 +28 @@
   published
     Player: TMediaPlayer;
-    Items: TObjectList; // TObjectList<TPlaylistItem>
+    Items: TObjectList<TPlaylistItem>;
     property RandomOrder: Boolean read FRandomOrder write FRandomOrder;
     property RepeatInfinitely: Boolean read FRepeatInfinitely
@@ -52 +50 @@
 procedure TPlayList.Shuffle;
 begin
-
 end;
 
@@ -84 +81 @@
 begin
   inherited;
-  Items := TObjectList.Create;
+  Items := TObjectList<TPlaylistItem>.Create;
 end;
 
 destructor TPlayList.Destroy;
 begin
-  Items.Free;
-  inherited Destroy;
+  FreeAndNil(Items);
+  inherited;
 end;