Discussion :

[mickael.be]

salut,

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

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

[MD Software]

Elle est où cette variable ?

[mickael.be]

Elle est déclarée dans les Var Privates

et je lui assigne une valeur dans FormCreate

[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 :

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

1
2
 
procedure TForm1.StartRecording();

à la place de

Code :

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

1
2
 
procedure StartRecording();

[MD Software]

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 :

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

1
2
 
procedure TForm1.StartRecording();

à la place de

Code :

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

1
2
 
procedure StartRecording();

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

[mickael.be]

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 :

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

1
2
3
4
5
 
  public
    { Public declarations }
    Bitrate : String;
  end;

et je suis dans le même form..

[TicTacToe]

tu as la réponse au dessus.

Ta fonction n'est pas dans la classe.

Donc soit tu préfixes BitRate avec

Code :

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

Form1.bitrate (avec bitrate dans public)

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

[mickael.be]

1:

Ca marche pas :

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..

[TicTacToe]

non, pour acceder à ta var.

il faut faire

Code :

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

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

de la meme maniere que tu as fais avec

Code :

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

if(Form1.rbOGG.Checked) then

et pour la déclaration, revenir comme avant :

Code :

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

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;

[mickael.be]

Merci

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

[TicTacToe]

En clair

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
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

Bon courage !