Changeset 569 for CoolAudio/Systems


Ignore:
Timestamp:
Mar 26, 2024, 11:37:40 PM (2 months ago)
Author:
chronos
Message:
  • Modified: Removed U prefix from CoolAudio unit names.
Location:
CoolAudio/Systems
Files:
7 moved

Legend:

Unmodified
Added
Removed

  • CoolAudio/Systems/AudioSystem.pas

    r568 r569  
    1 unit UAudioSystem;
    2 
    3 {$mode delphi}{$H+}
     1unit AudioSystem;
    42
    53interface
    64
    75uses
    8   Classes, SysUtils, Contnrs;
     6  Classes, SysUtils, Generics.Collections;
    97
    108type
    … …  
    118116  TAudioSystemManager = class(TComponent)
    119117  public
    120     Systems: TObjectList; // TListObject<TAudioSystem>
     118    Systems: TObjectList<TAudioSystemManagerItem>;
    121119    procedure Register(Name: string; SystemClass: TAudioSystemClass);
    122120    procedure FillStringList(StringList: TStrings);
    … …  
    298296  StringList.Clear;
    299297  for I := 0 to Systems.Count - 1 do
    300   with TAudioSystemManagerItem(Systems[I]) do
     298  with Systems[I] do
    301299    StringList.AddObject(Name, Systems[I]);
    302300end;
    … …  
    309307  I := 0;
    310308  while (I < Systems.Count) and
    311     ((TAudioSystemManagerItem(Systems[I]).Name <> Name) or
    312     (not TAudioSystemManagerItem(Systems[I]).Supported and SupportedOnly)) do Inc(I);
    313   if I < Systems.Count then Result := TAudioSystemManagerItem(Systems[I])
     309    ((Systems[I].Name <> Name) or
     310    (not Systems[I].Supported and SupportedOnly)) do Inc(I);
     311  if I < Systems.Count then Result := Systems[I]
    314312    else Result := nil;
    315313end;
    … …  
    330328begin
    331329  inherited;
    332   Systems := TObjectList.Create;
     330  Systems := TObjectList<TAudioSystemManagerItem>.Create;
    333331end;
    334332
    335333destructor TAudioSystemManager.Destroy;
    336334begin
    337   Systems.Free;
    338   inherited Destroy;
     335  FreeAndNil(Systems);
     336  inherited;
    339337end;
    340338
    … …  
    424422  Stop;
    425423  Active := False;
    426   inherited Destroy;
     424  inherited;
    427425end;
    428426
    … …  
    448446destructor TAudioSystem.Destroy;
    449447begin
    450   inherited Destroy;
     448  inherited;
    451449end;
    452450

  • CoolAudio/Systems/DSP/AudioSystemDSP.pas

    r568 r569  
    1 unit UAudioSystemDSP;
     1unit AudioSystemDSP;
    22
    3 {$I UCoolAudioConfig.inc}
    4 {$mode delphi}{$H+}
     3{$I CoolAudioConfig.inc}
    54
    65interface
    … …  
    87{$IFDEF AudioSystemDSP}
    98uses
    10   Classes, SysUtils, UAudioSystem, BaseUnix, UWavFile, ExtCtrls;
     9  Classes, SysUtils, AudioSystem, BaseUnix, WavFile, ExtCtrls;
    1110
    1211type
    … …  
    6968
    7069{$ENDIF}
     70
    7171
    7272implementation

  • CoolAudio/Systems/FMOD/AudioSystemFMOD.pas

    r568 r569  
    1 unit UAudioSystemFMOD;
     1unit AudioSystemFMOD;
    22
    3 {$I UCoolAudioConfig.inc}
    4 {$mode delphi}{$H+}
     3{$I CoolAudioConfig.inc}
    54
    65interface
    … …  
    98{$IFDEF AudioSystemFMOD}
    109uses
    11   Classes, SysUtils, fmoddyn, fmodtypes, UAudioSystem, DateUtils;
     10  Classes, SysUtils, fmoddyn, fmodtypes, AudioSystem, DateUtils;
    1211
    1312type

  • CoolAudio/Systems/MAD/AudioSystemMAD.pas

    r568 r569  
    1 unit UAudioSystemMAD;
     1unit AudioSystemMAD;
    22
    3 {$I UCoolAudioConfig.inc}
    4 {$mode delphi}{$H+}
     3{$I CoolAudioConfig.inc}
    54
    65interface
    … …  
    87{$IFDEF AudioSystemMAD}
    98uses
    10   Classes, SysUtils, mad, UAudioSystem;
     9  Classes, SysUtils, mad, AudioSystem;
    1110
    1211type
    … …  
    2625
    2726{$ENDIF}
     27
    2828
    2929implementation

  • CoolAudio/Systems/WavFile.pas

    r568 r569  
    1313{ *************************************************************************** }
    1414
    15 unit UWavFile;
     15unit WavFile;
    1616
    1717interface
    … …  
    7979
    8080implementation
    81 
    8281
    8382{ ********************* Auxiliary functions & procedures ******************** }

  • CoolAudio/Systems/WinAPI/AudioSystemWindows.pas

    r568 r569  
    1 unit UAudioSystemWindows;
    2 
    3 {$I UCoolAudioConfig.inc}
    4 {$mode delphi}{$H+}
     1unit AudioSystemWindows;
     2
     3{$I CoolAudioConfig.inc}
    54
    65interface
    … …  
    87{$IFDEF Windows}
    98uses
    10   Windows, Classes, SysUtils, UAudioSystem, MMSystem, DateUtils;
     9  Windows, Classes, SysUtils, AudioSystem, MMSystem, DateUtils;
    1110
    1211type

  • CoolAudio/Systems/mplayer/AudioSystemMPlayer.pas

    r568 r569  
    11// MPlayer slave command list: http://www.mplayerhq.hu/DOCS/tech/slave.txt
    22
    3 unit UAudioSystemMPlayer;
    4 
    5 {$I UCoolAudioConfig.inc}
    6 {$mode Delphi}{$H+}
     3unit AudioSystemMPlayer;
     4
     5{$I CoolAudioConfig.inc}
    76
    87interface
    98
    109uses
    11   Classes, SysUtils, UAudioSystem, Process, Math, Dialogs, DateUtils;
     10  Classes, SysUtils, AudioSystem, Process, Math, Dialogs, DateUtils;
    1211
    1312const
    … …  
    6463  SCantStopProcess = 'Can''t stop Mplayer process';
    6564
     65
    6666implementation
    6767
    … …  
    125125destructor TAudioSystemMPlayer.Destroy;
    126126begin
    127   inherited Destroy;
     127  inherited;
    128128end;
    129129
    … …  
    306306begin
    307307  Stop;
    308   FProcess.Free;
    309   inherited Destroy;
     308  FreeAndNil(FProcess);
     309  inherited;
    310310end;
    311311
Note: See TracChangeset for help on using the changeset viewer.