[XE] Variable et Class Helper

Bonjour,

Je rencontre un petit soucis avec l'utilisation des class Helper avec les variables

Ex :

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 28

TEditClassHelper = class Helper for TEdit Class Var FOldValue : String; private procedure FSetOldValue(AValue : String); function FGetOldValue : String; published function IsDifferent : Boolean; property OldValue : String read FGetOldValue write FSetOldValue; end;   Class function TEditClassHelper.FGetOldValue: String; begin Result := FOldValue; end;   Class procedure TEditClassHelper.FSetOldValue(AValue: String); begin   FOldValue:= AValue; Self.Text := AValue; end;   function TEditClassHelper.IsDifferent: Boolean; begin Result := trim(Self.Text) <> trim(FOldValue); end;

---

Le soucis se trouve quand j'appelle FoldValue car la valeur est toujours la même quelques soit le composant TEdit.

Code:

---

1 2 3 4 5 6

Edit1.OldValue := 'Toto'; Edit2.Oldvalue := 'Titi';   ShowMessage(Edit1.Text + ' - ' + Edit1.OldValue); // Toto - Titi Showmessage(Edit2.Text + ' - ' + Edit2.OldValue); // Titi - Titi

---

En fait FOldValue prend la valeur du dernier TEdit.

Et la je suis perdu ^^

Quelqu'un a une idée du soucis ?

Merci

En même temps, tu as déclaré class var et class function
C'est donc logique !
Ce sont des variables au niveau de la classe et non au niveaux des instances !

C'est la suite de ton sujet [D2007] Class Helper : Modifier un évènement ? et comme le rappelais sjrd : "Un type d'assistance peut ne pas déclarer de données d'instance, mais les champs de classe sont autorisés." : ce qui implique pas de champ supplémentaire

J'ai l'impression que dans la documentation Assistances de classes et d'enregistrements (Delphi), il y a une erreur, cela évoque des "champs de classe" mais c'est quoi ? des membres d'instances ou des membres de classe au sens POO ?

Tu ne peux tout simplement pas ! N'oublie pas que tu travailles sur la classe elle-même et non une instance de classe.

Bizarre même que ça compile. Les getter/setter de variables de classe doivent être static et les propriétés définies en class property :koi: (différence class-helper ou doux mélange ?)

Citation:

---

Envoyé par ShaiLeTroll

En même temps, tu as déclaré class var et class function
C'est donc logique !
Ce sont des variables au niveau de la classe et non au niveaux des instances !

---

Je pense que j'ai quelques lacunes la dedans :aie:

Citation:

---

Envoyé par ShaiLeTroll

C'est la suite de ton sujet [D2007] Class Helper : Modifier un évènement ? et comme le rappelais sjrd : "Un type d'assistance peut ne pas déclarer de données d'instance, mais les champs de classe sont autorisés." : ce qui implique pas de champ supplémentaire

---

Pas vraiment la même chose.
En fait je voulais faire que mes TEdit garde l'ancienne valeur en mémoire (d'où la création de FOldValue) et puis me faire une petite function qui permet de retourner si la nouvelle valeur et ancienne sont identiques.
Je pense que je vais passer par le HelpKeyWord du composant TEdit pour stocker cette valeur (même si c'est pas très propre)

Citation:

---

Envoyé par ShaiLeTroll

J'ai l'impression que dans la documentation Assistances de classes et d'enregistrements (Delphi), il y a une erreur, cela évoque des "champs de classe" mais c'est quoi ? des membres d'instances ou des membres de classe au sens POO ?

---

Vu le peu de doc la dessus, j'ai eu un peu de mal, j'ai trouvé quelques exemples mais rien de parlant.
1 seul utilisait des Class Var

http://www.codingtiger.com/questions...e-fonts-..html

Citation:

---

Envoyé par Andnotor

Tu ne peux tout simplement pas ! N'oublie pas que tu travailles sur la classe elle-même et non une instance de classe.

Bizarre même que ça compile. Les getter/setter de variables de classe doivent être static et les propriétés définies en class property :koi: (différence class-helper ou doux mélange ?)

---

C'est un copier/M...der, des tests que j'avais fait, les Class devant les fonctions ne doivent pas y être :aie:

les class helpers sont là pour habiller les classes .Net existantes avec de nouvelles méthode statiques, ce n'est pas supposé être utilisé pour autre chose.

dans ton cas tu as juste besoin de surcharger TEdit, et si tu ne veux pas créer de nouveau composant TEditPlus, tu peux simplement surcharger TEdit dans ta fiche

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

type TEdit = class(StdCtrls.TEdit) private FOldValue : string; ... end;   TForm1 = class(TForm) Edit1: TEdit; ... end;

---

le simple fait de surcharger TEdit avant la déclaration de TForm1 suffit, tu peux aussi placer cette déclaration dans une unité si elle se trouve APRES StdCtrls dans la clause Uses.

Question class var, un petit tout dans la FAQ ;)

Sinon il y a la propriété Tag utilisé la comme un pointeur sur une classe !
On faisait ce genre de chose avant de les helper existe !

Code:

---

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

TEditHistoric = class private FOldValues : TStringList; FOldChange: TNotifyEvent;   procedure ChangeHandler(Sender: TObject); function GetOldValues(Index: Integer) : String; function GetLastValue(): String; public constructor Create(AEdit: TEdit); destructor Destroy(); override;   property OldValues[Index: Integer] : String read GetOldValues; property LastValue : String read GetLastValue; end;

---

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 28 29 30 31 32

constructor TEditHistoric.Create(AEdit: TEdit); begin FOldValues := TStringList.Create(); FOldChange := AEdit.OnChange; AEdit.OnChange := ChangeHandler; end;   constructor TEditHistoric.Destroy(); begin FreeAndNil(FOldValues); end;   procedure TEditHistoric.ChangeHandler(Sender: TObject); begin FOldValues.Add(TEdit(Sender).Text);   if FOldChange then FOldChange(Sender); end;   function TEditHistoric.GetOldValues(Index: Integer) : String; begin Result := FOldValues[Index]; end;   function TEditHistoric.GetLastValue(): String; begin if FOldValues.Count > 0 then Result := FOldValues[FOldValues.Count - 1] else Result := ''; end

---

l'utilisation

Code:

---

1 2	Edit1.Tag := NativeInt(TEditHistoric.Create(Edit1)); // NativeInt pour XE2, sinon integer

---

libération

Code:

---

1 2 3 4 5

if Edit1.Tag <> 0 then begin TEditHistoric(Edit1.Tag).Free(); // une TObjectList peut aussi faire ce boulot ! Edit1.Tag := 0; end;

---

published ne sert qu'au DFM, un helper peut-il s'installer en package ???

EDIT :

Citation:

---

Envoyé par Paul TOTH

le simple fait de surcharger TEdit avant la déclaration de TForm1 suffit, tu peux aussi placer cette déclaration dans une unité si elle se trouve APRES StdCtrls dans la clause Uses.

---

Je connais aussi la technique de la surcharge avec le même nom de classe, je ne l'ai jamais pratiqué en production (juste pour le hack de propriété protected :mouarf:)
Comment cela se comporte à la création du TEdit, cela utilise la nouvelle classe ?
FindClass du coup renvoie la nouvelle classe de TEdit et non celle de la VCL, sinon il y aurait une violation d'accès pour une mémoire non allouée pour FOldValue
Du coup, tous les TEdit de l'appli utilise ce nouveau TEdit ?
Faudra que j'essaye un jour ! Je suis en C++Builder, on ne peut pas faire cette tricherie, mais je peux inclure des fichiers PAS, a étudier !

@Shai : Oui j'y avais pensé par le TAG ^^

Merci à tous pour vos exemples & co.
J'oublie à chaque fois la méthode par surcharge qui fonctionne parfaitement ;)

Je confirme en C++Builder, cela rale un peu, mais ça fonctionne le coup du TButton = class(StdCtrls.TButton),
par contre,
il faut explicitement typé le TButton et là le RAD n'est pas content, mais un #define pour le berner suffit
cela ne semble faire effet que sur les TForm ayant fait un include !
Comment le FindClass fait-il pour créer des TButton normal pour une TForm et des TButton "surchargée" pour une autre TForm ???

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

unit ControlDelphiImpl;   interface   uses SysUtils, Windows, Classes, StdCtrls, Variants;   // Cette unité est juste conserve pour l'extrait de code !   type TButton = class(StdCtrls.TButton) private FMessage : string; class var FCount: Integer; public constructor Create(AOwner: TComponent); override; end;   implementation   constructor TButton.Create(AOwner: TComponent); begin inherited Create(AOwner);   Inc(FCount); FMessage := Format('%d Instances de %s (%d + %d = %d)', [FCount, Self.ClassName, StdCtrls.TButton.InstanceSize, sizeof(FMessage), Self.InstanceSize]); OutputDebugString(PChar(FMessage)); end;

---

Code:

---

1 2 3 4 5 6 7 8 9 10

#include <StdCtrls.hpp> #include "ControlDelphiImpl.hpp" #define TButton Controldelphiimpl::TButton //--------------------------------------------------------------------------- class TTrucForm : public TForm { __published: // Composants gérés par l'EDI TButton *BtnMachin; // en réalité c'est un Controldelphiimpl::TButton // Controldelphiimpl::TButton *BtnMachin; // ça fait raler le Concepteur à cause de type différent !

---

@Rayek ou @Paul TOTH, si vous incluez ce fichier dans la MainForm, est-ce cela impacte les autres TButton de votre appli ?
Ou est-ce comme en C++Builder c'est séparé pour chaque TForm ?

Delphi et son RegisterClasses magique des DFM !
Je ne sais pas comme il s'y retrouve !

Citation:

---

Envoyé par ShaiLeTroll

@Rayek ou @Paul TOTH, si vous incluez ce fichier dans la MainForm, est-ce cela impacte les autres TButton de votre appli ?
Ou est-ce comme en C++Builder c'est séparé pour chaque TForm ?

Delphi et son RegisterClasses magique des DFM !
Je ne sais pas comme il s'y retrouve !

---

je dois dire que je n'ai jamais compris pourquoi ça fonctionnait non plus ^^ mais c'est bien LE composant déclaré dans CHAQUE unité en particulier qui est utilisé. Tu peux donc utiliser cette technique de façon différente pour chaque unité.