TDspVoiceList

type TDspVoiceList = class(TList)

protected

  function Get();

  procedure Put();

  function GetPlayingVoiceCount;

public

  function Add();

  function Extract();

  function First;

  function IndexOf();

  function Last;

  function Remove();

  procedure Insert();

  function GetOldestVoice();

  function GetNearestVoice();

  function GetVoiceByKey();

  procedure SetSampleRate();

  procedure SetChannels();

  procedure ProcessMidiEvent();

  property Items []: TDspVoice; [rw]

  property PlayingVoiceCount: Integer; [r]

end;

TDspVoiceList

TObject