Passage de pointeurs entre fonctions
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 :cry:
Code:
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:
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
