procedure　TForm1.Button1Click(Sender:　TObject);　var　　　p:　Pointer;　　　str:　stri

{相關結構:}　TDSFXCompressor　=　=　packed　record　　　fGain:　Single;　　　　　　//　-60　..　60　　:

{相關結構:}　　TDSFXDistortion　=　packed　record　　　fGain:　Sinle;　　　　　　　　　　　　　　　　　　//-60

{相關結構:}　TDSFXEcho　=　packed　record　　　fWetDryMix:　Single;　　//0　..　100　　:　50　(%)　　

{相關結構:}　TDSFXFlanger　=　packed　record　　　fWetDryMix:　Single;　//　　0　..　100　　:　50　　

{相關結構:}　TDSFXWavesReverb　=　packed　record　　　fInGain:　Single;　　　　　　　　　　//　　-96　..

　IDirectSoundFXI3DL2Reverb8 效果器除了擁有 GetAllParameters()、SetAllParameters() 外, 還比

{相關結構:}　TDSFXParamEq　=　packed　record　　　fCenter:　Single;　　　　//　80　..　16000　:　800

　IDirectSound3DBuffer8 相關方法:{3D　音效處理模式}　GetMode()、SetMode()　　　DS3DMODE_NORMAL　　

終於又能擠出點時間學點 Delphi 了。　　學習 NativeXML 的目的：　　1、以後再用到 XML 就准備用它了。　　2、學習其內存處理機制。　　3、

　相關方法與屬性：　　TNativeXML.Create(...);　　TNativeXML.CreateEx(...);　　TNativeXML.Creat

uses　NativeXML;　　var　　　xml:　TNativeXML;　　procedure　TForm1.FormCreate(Sender:　TO

uses　NativeXML;　　const　　　xmlFile　=　C:\Temp\xml_test_files\basic.XML　;　//測試文件　　v

unit　Unit1;　　interface　　uses　　　Windows,　Messages,　SysUtils,　Variants,　Classes,　

uses　NativeXML;　　procedure　TForm1.Button1Click(Sender:　TObject);　var　　　xml:　TNa

uses　NativeXML;　　procedure　TForm1.Button1Click(Sender:　TObject);　var　　　xml:　TNa

uses　NativeXML;　　procedure　TForm1.Button1Click(Sender:　TObject);　var　　　xml:　TNa

var　xml:　TNativeXML;　　const　　　xmlStr　=　<?XML　version=1.0　encoding=UTF-8?>

uses　NativeXML;　　var　xml:　TNativeXML;　　const　　　xmlStr　=　<?XML　version=1.0　en

uses　NativeXML;　　procedure　TForm1.Button1Click(Sender:　TObject);　var　　　xml:　TNa