Discussion :

[mickael.be]

Salut,

je commence doucement à savoir faire la différence entre pointeurs et variables.. pas facile quand on viens de PHP ou tout est pareil :-)

Mais là ? J'ai un couac

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
procedure TForm1.BitBtn1Click(Sender: TObject);
var
	m: Integer;
  path: String;
begin
 
  BitBtn1.enabled:= false;
  timer3.enabled := true;
 
  Path:=StringGrid1.cells[5,StringGrid1.Row];
 
  m := BASS_StreamCreateFile(False, Pchar(Path), 0, 0, 0);
 
  if BASS_ChannelPlay(m, False) then
  begin
 
(( quelques lignes sans importance ))
 
  end
  else
  begin
 
  Error('Error: ' + StringGrid1.cells[5,StringGrid1.Row]);
 
  end;
 
end;

Comme vous le remarquez j'utilise le pointeur "m" pour relier mes deux fonctions BASS.

Mais? Pour arrêter mon flux musical j'ai besoin de cette référence !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
procedure TForm1.BitBtn3Click(Sender: TObject);
var m : Integer;
begin
 
    BASS_ChannelStop(m);
 
end;

Il me dis que m est déclarée mais pas utilisée ... ??

Merci

[bjl]

Bonjour,

Si tu veux que m soit disponible pour toutes les fonctions de ta form; déclare le en private dans l'interface de ta form mais pas en local dans tes procédures.

[tourlourou]

tu déclares m en variable locale à ta procédure BitBtn1Click : elle n'a pas d'existence en dehors.
la variable locale m de BitBtn3Click n'est donc pas la même... (logique, puisqu'elle est redéclarée localement)
il faut que tu déclares m dans la section var de l'Unit1, soit dans la section interface, soit dans la section implémentation

[mickael.be]

Merci je l'ai déclaré dans Private !

C'est parfait 8)