Discussion :

[iluv]

Salut,
Je tente de faire un truc qui plante violent, et une solution sympa serait de pouvoir utiliser dans une procédure, les champs de le classe dans laquelle dans une des methodes on apelle cette procédure.

petit exemple :

Code :

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

1
2
3
4
5
6
7
8
 
type
  MaClasse = Class
  public
    MaVariable : string;
  private
    procedure MaMethode;
  end;

j'ai donc ma classe MaClasse, et je définis par la suite la méthode MaMethode.

Code :

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

1
2
3
4
5
 
  procedure MaMethode;
  begin
     MaProcedure;
  end;

MaProcedure est déjà définie.
On admet que j'ai besoin dans MaProcedure d'utiliser MaVariable, mais que je ne puisse pas passer MaVariable en paramètre (c'est important ça).

MonObjet est un objet de classe MaClasse.

Est-il possible d'utiliser les champs de MonObjet dans ma procédure?

En fait je me dis qu'il doit y avoir moyen de le faire parceque quand j'utilise l'interface avec les boutons et tout, par exemple la procédure OnClick d'un bouton prend en paramètre un TObject qui s'apelle Sender.

Si je suis pas très clair, bah prevenez moi

[TicTacToe]

oui c'est possible. ton explication est claire.

Surtout que tu as mis 'MaVariable' en public, elle peut donc être atteinte de l'exterieur d'un objet de type 'MaClasse'.

PAr contre, il faut absolument que lors de l'execution, 'MaProcedure' soit au courant de l'objet 'MaClasse' qui l'a appelé...

Tu peux donc transmettre 1 seul parametre (effectivement un peu comme les Sender), à ta procedure 'MaProcedure'.

tu définies

Code :

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

1
2
3
4
procedure MaProcedure( ClasseApellante: TMaClasse );
begin
  ShowMessage( ClasseAppelante.MaVariable );
end;

et dans l'implémentation de 'MaMéthode', tu appelles 'MaProcedure' de cette manière

Code :

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

1
2
3
4
5
6
procedure TMaClasse.MaMethode( ... )
begin
 ...
  MaProcedure( Self )
...
end;

Bon courage !

[iluv]

merci, c'était le self qui me manquait, je vais de ce pas essayer =)