cs_saravana
Messages postés91Date d'inscriptionvendredi 25 mars 2005StatutMembreDernière intervention18 octobre 2007
-
10 avril 2006 à 20:42
Cirec
Messages postés3833Date d'inscriptionvendredi 23 juillet 2004StatutModérateurDernière intervention18 septembre 2022
-
10 avril 2006 à 23:40
bjr je suis en train de réaliser un lecteur mais lors de la compilation je recois l'"erreur:
''la partie gauche n'est pas affectable'', c'est pour la réalisation d'un egaliseur,
procedure TForm1.EQ(Sender: TObject);
var BandNum : integer;
begin
BandNum := (Sender as TvrSlider).Tag - 1;
BassPlayer1.EQGains[BandNum]:=(Sender as TvrSlider).Position;<<<= ici BassPlayer1.SetAEQGain(BandNum, bassplayer1.EQGains[BandNum]);
end;
Cirec
Messages postés3833Date d'inscriptionvendredi 23 juillet 2004StatutModérateurDernière intervention18 septembre 202250 10 avril 2006 à 23:40
Salut,
l'erreur que tu obtiens provien de fait que la propriété dans la quelle tu essayes d'écrir (EQGains) et en lecture uniquement.
Essaye voir comme ceci :
procedure TForm1.EQ(Sender: TObject);
var BandNum : integer;
begin
BandNum := (Sender as TvrSlider).Tag - 1;
BassPlayer1.SetAEQGain(BandNum, (Sender as TvrSlider).Position);
end;