Déclarer un tableau de pointers [Résolu]
Salut à tous
Voila j'ai une petite question. Dans la libraire Bass_FX de bass, les types suivants sont définis :
Type
// Echo
BASS_FX_DSPECHO = Record
fLevel : FLOAT; // [0....1....n] linear
lDelay : Integer; // [1200..30000]
end;
// Flanger
BASS_FX_DSPFLANGER = Record
fWetDry : FLOAT; // [0....1....n] linear
fSpeed : FLOAT; // [0......0.09]
lChannel : Integer; // BASS_FX_DSP_CHANxxx flag/s
end;
Si on regarde la fonction suivante BASS_FX_DSP_GetParameters(handle:DWord,dsp_fx : integer, par:Pointer), on se rend compte qu'il faut utiliser un pointer .
Suite à cela j'ai deux questions (Deux pour le prix d'une ) :
*Est-il possible de créer un tableau de pointer pour faire un truc du style ?
Procedure Load_DSPParams(DSP:TDSP);
Const
DSPFlag:Array [0..1] Of Integer =(BASS_FX_DSPFX_FLANGER,BASS_FX_DSPFX_ECHO);
DSPStructure :Array [0..1] Of Pointer=(BASS_FX_DSPFLANGER,BASS_FX_ECHO );
Begin
BASS_FX_DSP_GetParameters(DSP.DSPStream,DSPFlag[1], @DSPStructure[1]));
End;
*Si la réponse à la question est positive, est-il possible de lister les sous-types, genre
Procedure Load_DSPParams(DSP:TDSP);
Const
DSPFlag:Array [0..1] Of Integer =(BASS_FX_DSPFX_FLANGER,BASS_FX_DSPFX_ECHO);
DSPStructure :Array [0..1] Of Pointer=(BASS_FX_DSPFLANGER,BASS_FX_ECHO );
Var
IndexParam:Integer;
Param:Float;
Begin
BASS_FX_DSP_GetParameters(DSP.DSPStream,DSPFlag[1], @DSPStructure[1]);
For IndexParam:=0 To DSPStructure[1].Count-1 Do
Param:=DSPStructure[1,IndexParam];
End;
Merci à vous