Changeset 569 for CoolAudio/Systems/AudioSystem.pas

Timestamp:

Mar 26, 2024, 11:37:40 PM (7 weeks ago)

Author:

chronos

Message:

• Modified: Removed U prefix from CoolAudio unit names.

File:

• CoolAudio/Systems/AudioSystem.pas (moved) (moved from CoolAudio/Systems/UAudioSystem.pas ) (7 diffs)

CoolAudio/Systems/AudioSystem.pas

@@ -1 @@
-unit UAudioSystem;
-
-{$mode delphi}{$H+}
+unit AudioSystem;
 
 interface
 
 uses
-  Classes, SysUtils, Contnrs;
+  Classes, SysUtils, Generics.Collections;
 
 type
@@ -118 +116 @@
   TAudioSystemManager = class(TComponent)
   public
-    Systems: TObjectList; // TListObject<TAudioSystem>
+    Systems: TObjectList<TAudioSystemManagerItem>;
     procedure Register(Name: string; SystemClass: TAudioSystemClass);
     procedure FillStringList(StringList: TStrings);
@@ -298 +296 @@
   StringList.Clear;
   for I := 0 to Systems.Count - 1 do
-  with TAudioSystemManagerItem(Systems[I]) do
+  with Systems[I] do
     StringList.AddObject(Name, Systems[I]);
 end;
@@ -309 +307 @@
   I := 0;
   while (I < Systems.Count) and
-    ((TAudioSystemManagerItem(Systems[I]).Name <> Name) or
-    (not TAudioSystemManagerItem(Systems[I]).Supported and SupportedOnly)) do Inc(I);
-  if I < Systems.Count then Result := TAudioSystemManagerItem(Systems[I])
+    ((Systems[I].Name <> Name) or
+    (not Systems[I].Supported and SupportedOnly)) do Inc(I);
+  if I < Systems.Count then Result := Systems[I]
     else Result := nil;
 end;
@@ -330 +328 @@
 begin
   inherited;
-  Systems := TObjectList.Create;
+  Systems := TObjectList<TAudioSystemManagerItem>.Create;
 end;
 
 destructor TAudioSystemManager.Destroy;
 begin
-  Systems.Free;
-  inherited Destroy;
+  FreeAndNil(Systems);
+  inherited;
 end;
 
@@ -424 +422 @@
   Stop;
   Active := False;
-  inherited Destroy;
+  inherited;
 end;
 
@@ -448 +446 @@
 destructor TAudioSystem.Destroy;
 begin
-  inherited Destroy;
+  inherited;
 end;