Propriétés de classes

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Propriétés de classes

Yana

Salut !

Je me pose une question depuis un bout de temps alors je me décide maintenant de demander la réponse en public ^^

A quoi servent les "property Prop: TClasse READ GetProp WRITE SetProp" ?
Je ne comprends pas trop bien l'utilité des READ et WRITE...

J'ai fais ceci :

Code :

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
end;
TClass = class
procedure SetProp(Valeur: TColor);
function GetProp: TColor;
published
property Couleur: TColor read GetProp write SetProp;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TClass.SetProp(Valeur: TColor);
begin
if Couleur <> Valeur then Couleur := Valeur;
end;
function TClass.GetProp: TColor;
begin
Result := Couleur;
end;
end.

Mais pourquoi ne pas avoir défini qqch du style :

Code :

TClass = class
Couleur: TColor;
end;

On aurait ainsi pu atteindre la propriété Couleur et changer librement sa valeur sans passer par deux fonctions/procédures :??:

Merci de m'éclairer

Message édité par Yana le 24-08-2003 à 12:15:03

Publicité

*syl*

--> []

Ça n'aurait pas été visible dans l'inspecteur d'objet (d'où le property)

Yana

Ce n'est pas une propriété d'un composant visuel...

antp

Super Administrateur
Champion des excuses bidons

Pour que quand tu fasse bidule.Couleur := clBlue; ça ne fasse pas que bêtement assigner la valeur, ça passe par un SetColor qui peut faire des tests (ici tester que la valeur est différente).
Dans ce cas-ci c'est pas très utile, mais dans le set on pourrait par ex recolorier l'objet quand on change sa couleur. Or ça ne sert à rien de le recolorier si la nouvelle couleur = l'ancienne. Donc on fait un test.
Et pour l'utilisateur c'est transparent : il assigne une valeur sans devoir se soucier du traitement qui est fait derrière.

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

*syl*

--> []

Yana a écrit :

Ce n'est pas une propriété d'un composant visuel...

Qu'est-ce que tu racontes toi ? :heink:
T'es dans une section published !

Yana

Bah dans l'inspecteur d'objet il n'y a rien qui s'affiche de nouveau, si ce n'est la feuille et le boutton1 ...

antp

Super Administrateur
Champion des excuses bidons

*Syl* a écrit :

Qu'est-ce que tu racontes toi ? :heink:
T'es dans une section published !

classe dérivant de TObject et pas de TComponent, donc pas un compo, le "published" ne fait rien de plus que le "public".

PS: Appeler une class TClass c'est un bon système pour avoir des crash étranges par après TClass est déjà utilisé pour désigner un type de classe.

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

Yana

je sais bien mais je ne savais pas quoi mettre alors bon, on va pas chinailler pour un test

*syl*

--> []

antp a écrit :

classe dérivant de TObject et pas de TComponent, donc pas un compo, le "published" ne fait rien de plus que le "public".

Ah wé, pas fait gaffe
[:neowen]

FORUM HardWare.fr

Programmation

Delphi/Pascal

Propriétés de classes

Sujets relatifs
[poo] appeller une fct dune classes heritee	Recuperation des infos d un fichier (-> Propriétés / onglet résumé )
[Eclipse] Supprimer des associations entre classes Java ? [résolu]	Je viens de debuter les classes , qq questions :
Récupération dynamique des propriétés de style	[C++ / VC++] Gros probleme de déclaration de classes :(
[C++] faire un vector de classes héritées	heriter des propriétés d'une classe par rapport a une autre classe
les classes : important ??	[Access 2002] C possible de créer des propriétés "maison"?
Plus de sujets relatifs à : Propriétés de classes

Page générée en 0.042 secondes