Variable générale non trouvée dans une fonction

salut,

j'ai variable générale non trouvée dans une fonction
la variable : Bitrate

Citation:

---

procedure StartRecording();
var
Encoder : String;
begin

if(Form1.rbOGG.Checked) then
begin
Encoder := 'oggenc.exe -o temp.ogg -';
end
else
begin
Encoder := 'lame.exe -b '+ Bitrate +' -h - temp.ogg';
end;
end;

.....

StartRecording();

---

Voilà, je ne comprends pas comment importer la variable..

Merci :bravo:

Elle est où cette variable ?

Elle est déclarée dans les Var Privates

et je lui assigne une valeur dans FormCreate

Si elle est dans les var private de ta form, seule les fonctions ou procedures de ta form y ont accès. Alors soit tu la mets dans public soit, ce que je préconise c'est de mettre :

Code:

---

1 2	procedure TForm1.StartRecording();

---

à la place de

Code:

---

1 2	procedure StartRecording();

---

Citation:

---

Envoyé par Guile

Si elle est dans les var private de ta form, seule les fonctions ou procedures de ta form y ont accès. Alors soit tu la mets dans public soit, ce que je préconise c'est de mettre :

Code:

---

1 2	procedure TForm1.StartRecording();

---

à la place de

Code:

---

1 2	procedure StartRecording();

---

---

à condition que StartRecording soit une procédure de la classe TForm1

En fait, je crois que vous avez pas compris.

J'ai mis ma déclaration dans le public, et ca marche pas non plus..

La fonction ne trouve pas la variable !

[Erreur] Unit1.pas(138): Identificateur non déclaré : 'Bitrate'

Pourtant :

Code:

---

1 2 3 4 5

public { Public declarations } Bitrate : String; end;

---

et je suis dans le même form..

tu as la réponse au dessus.

Ta fonction n'est pas dans la classe.

Donc soit tu préfixes BitRate avec

Code:

---

Form1.bitrate (avec bitrate dans public)

---

soit tu intègres ta fonction dans ta classe (comme dit précedemment)

1:

Ca marche pas :

Citation:

---

procedure SocketRead(Sender: TObject; Socket: TCustomWinSocket);
private
ZeFile : String;
PathFTP : String;
URLHTTP : String;
public
Form1.Bitrate : String;
end;

---

[Erreur] Unit1.pas(56): ',' ou ':' attendu(e) mais '.' trouvé(e)
[Erreur] Unit1.pas(137): Identificateur non déclaré : 'Bitrate'

2: Je ne peux pas déclarer ma variable Bitrate dans ma function() si non je ne pourrais pas l'affecter dans procedure FormCreate sa valeur..

non, pour acceder à ta var.

il faut faire

Code:

---

Encoder := 'lame.exe -b '+ Form1.Bitrate +' -h - temp.ogg';

---

de la meme maniere que tu as fais avec

Code:

---

if(Form1.rbOGG.Checked) then

---

et pour la déclaration, revenir comme avant :

Code:

---

1 2 3 4 5 6 7 8 9

procedure SocketRead(Sender: TObject; Socket: TCustomWinSocket); private ZeFile : String; PathFTP : String; URLHTTP : String; public Bitrate : String; end;

---

Merci :D :D

Faudra que j'analyse ce phénomène..

En gros :
Private, la form actuelle seulement, Dispo partout sauf fonctions
Public, toutes les forms peuvent y avoir accès, dispo dans les fonctions

:oops:

En clair

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

TMaForm = class( TForm ) private A: Integer; protected B : Integer; public C : Integer procedure MaMethode(); end   var MaForme: TMaForme;   procedure MaProcedure(); begin ... end

---

A est visible uniquement pour MaForm (mais pas pour ses descendants)
B est visible uniquement par MaForm et par ses descendants
C est visible par MaForme et pour les autres mais en spécifiant MaForme.C (utilisation dans MaProcedure par exemple)

Je pense qu'un petit tuto sur l'objet t'apportera des infos jusque la obscure pour toi :wink:

Bon courage !