Problème dans la création d'une class

Version imprimable

1 pièce(s) jointe(s)

Bonjour,

J'essaie de créer ma propre classe nommé Trpoint.
Voilà comment je l'ai implémenté:

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, ExtCtrls, TeeProcs, TeEngine, Chart;
 
type
  TForm1 = class(TForm)
    ...
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
type
 Trpoint = class
  private
    X_:Real;
    procedure SetX(Valeur: real);
  public
    constructor Create;
    destructor Destroy;
    property X:real read X_ write SetX;
  end;
 
var
  Form1: TForm1;
  pp:Trpoint;
 
implementation
 
{$R *.dfm}
constructor Trpoint.Create;
begin
  X_:=0;
end;
 
destructor Trpoint.Destroy;
begin
end;
 
procedure Trpoint.SetX(Valeur: real);
begin
  X_ := Valeur;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
var r:real;
i:integer;
begin
  r:= pp.X;
  i:=round(r);
  Button3.Caption:=inttostr(i);
end;
 
end.

Il semble que je fais mal la déclaration de la classe Trpoint puisque lorsque j'appuis sur le bouton ca plante. (cf image en piéce jointe).

Est ce quelqu'un comprend d'où vient l'erreur?

Merci d'avance à tous ceux qui pourront m'aider. ;)

26/12/2009, 22h29
Fenix01

Ta oublié une chose cruciale, l'initialisation de ta classe.

Code:

pp := Trpoint.Create;

Et bien sur ne pas oublier de libérer la classe

Code:

pp.free;
26/12/2009, 23h37
Dereck07

pp.free ou pp.Destroy ?
27/12/2009, 10h23
Fenix01

bonjour,

il vaut mieux utiliser free.

Copie de l'aide delphi :

Citation:

N'appelez pas directement System::TObject::Destroy. Appelez plutôt System::TObject::Free. Free vérifie que la référence objet n'a pas la valeur nil avant d'appeler System::TObject::Destroy.
27/12/2009, 12h12
Dereck07

Mettre une class dans un autre fichier .pas

Merci, pour cette reponse.

J'ai une nouvelle question. Voila, j'aimerai rendre mon cote plus propre et mette la déclaration de la classe et toutes les déclarations des fonctions et les procedures qui lui sont associées dans un autre fichier .pas.

Qu'est ce qu'il faut mettre dans unit1 pour lui dire d'aller cherche la class dans fichiers MyClass.pas?
Est ce que dans MyClass.pas je mets les champs unit, interface, uses ou je commence directement à la déclaration à type?

:roll:
27/12/2009, 13h48
Andnotor

Tu ne peux pas !

La déclaration et l'implémentation de ta classe doivent se trouver dans la même unité.
On pourrait imaginer passer par des "include", mais ça ne rendra pas ton code plus lisible.

ps: 1 seule question par post stp :).
27/12/2009, 14h10
Fenix01

Comment ca on peut pas ?

Ce que tu peux faire c'est déclarer ta classe dans par exemple le fichier MesClasses.pas

Dans MesClasses tu auras déclaré une classe TMyClass

Ensuite dans le fichier Unit1.pas

sous implémentation tu mets

Code:

uses MesClasses

Et la tu peux utiliser ta classe TMyClass où tu veux sous implémentation (de l'unit1).

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
 
type
  TRPoint = class
  private
    fX, fY : double;
  public
    property X : double read fX write fX;
    property Y : double read fY write fY;
  public
    constructor Create; 
  end;
 
var
  RPoint : TRPoint;
  RPoints : array[0..9] of TRPoint;
 
implementation
 
{$R *.dfm}
 
 
procedure TForm1.Button3Click(Sender: TObject);
var iX, iY : integer;
begin
  iX := round(RPoint.X);
  iY := round(RPoint.Y);
  Button3.Caption := format('X=%d Y=%d',[iX, iY]);
end;
 
 
{ TRPoint }
constructor TRPoint.Create;
begin
  fX := 0;
  fY := 0;
end;
 
 
{ for RPoints var }
 
procedure CreateRPoints;
var N : LongInt;
begin
  for N := low(RPoints) to high(RPoints) do
    RPoints[N] := TRPoint.Create;
end;
 
procedure FreeRPoints;
var N : LongInt;
begin
  for N := low(RPoints) to high(RPoints) do
    RPoints[N].Free;
end;
 
 
initialization
  RPoint := TRPoint.Create;
  CreateRPoints;
 
finalization 
  RPoint.Free;
  FreeRPoints;
 
end.

et on peux même faire :

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
type
  TRPoint = class
  private
    fX, fY : double;
    function GetIntXY(const index: LongInt): LongInt;
    procedure SetIntXY(const index: LongInt; Value: LongInt);
  public
    property X : double read fX write fX;
    property Y : double read fY write fY;
    property iX : LongInt index 0 read GetIntXY write SetIntXY;
    property iY : LongInt index 1 read GetIntXY write SetIntXY;
  public
    procedure Add(aRPoint: TRPoint);
    procedure Subtract(aRPoint: TRPoint);
    procedure Multiply(aRPoint: TRPoint);
    procedure Divide(aRPoint: TRPoint);
    constructor Create; 
  end;
 
 
implementation
 
function TRPoint.GetIntXY(const index: LongInt): LongInt;
begin
  case index of
    0 : result := round(fX);
    1 : result := round(fY);
  end;
end;
 
procedure TRPoint.SetIntXY(const index: LongInt; Value: LongInt);
begin
  case index of
    0 : fX := Value;
    1 : fY := Value;
  end;
end;
 
procedure TRPoint.Add(aRPoint: TRPoint);
begin
  fX := fX + aRPoint.X;
  fY := fY + aRPoint.Y;
end;
 
procedure TRPoint.Subtract(aRPoint: TRPoint);
begin
  fX := fX - aRPoint.X;
  fY := fY - aRPoint.Y;
end;
 
procedure TRPoint.Multiply(aRPoint: TRPoint);
begin
  fX := fX * aRPoint.X;
  fY := fY * aRPoint.Y;
end;
 
procedure TRPoint.Divide(aRPoint: TRPoint);
begin
  fX := fX / aRPoint.X;
  fY := fY / aRPoint.Y;
end;

Merci pour toutes ces reponses :ccool:
Fenix01, j'ai essayé ce que tu m'as dit pour mettre une classe dans un .pas, ca marche nickel ! :mrgreen:

J'ai remarqué que si j'implémenté la class ainsi ca marché aussi:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 type Trpoint = class X:real; Y:real; constructor Create(X_:real=0;Y_:real=0); destructor Destroy; private { Déclarations privées } public { Déclarations publiques } end;
Quel avantages y a t-il a la déclarer ainsi (de passer par property)? :
Code:

1 2 3 4 5 6 7 8 9 10 type TRPoint = class private fX, fY : double; public property X : double read fX write fX; property Y : double read fY write fY; public constructor Create; end;

tu pourrais egalement ne pas faire de classe, surtout pour un si petit truc :
Code:

1 2 3 4 5 6 7 8 9 type TRPoint = record X, Y : double; end; const RPointNull : TRPoint = (X: 0; Y: 0);
property permet tout simplement d'acceder "proprement" au variables d'une classe.
ici, l'utilitée n'est pas vraiment flagrante voir inutile.

property se justifie par contre, quand on commence à avoir des classes au fonctionnement complexe et ou l'on doit traiter les variables avant utilisation grace au Set/Get.

par exemple, on pourrait s'assurer que si X ou Y, quand elles sont assignées, sont inférieur ou égale à -Epsilon..Epsilon alors X ou Y vaux un 0 propre.
Code:

1 2 3 4 5 6 7 8 9 property X : double read fX write SetX; procedure TRPoint.SetX(value: double); begin if (Value > NegativeEpsilon) and (Value < Epsilon) then fX := 0 else fX := Value; end;
X et Y pourrait également être dans un tableau, ou être des pointeurs et donc necessiterais quelques traitements dans les methode Get/Set.

par contre, je te recommande de ne pas creer d'identifiants avec la forme X_, Y_, N_ etc.
les variables privées de classes s'ecrivent avec un "F" ou "f" au début :
fX, fY, fN, fColor, fText.
la méthode sur READ commence par Get (GetX, GetY, GetN, GetXY...)
la méthode sur WRITE commence par Set (SetX, SetY, SetN, SetXY...)

les arguments de méthode commence par "A" ou "a" (aX, aY, aN, aText...)

n'utilise pas le type "real", utilise le type Double (64bits) ou Single (32bits).
"real" n'a pas le même sens selon le compilateur (voir l'aide delphi sur Real/Real48) tout comme Integer ou Cardinal.
quelqu'un qui traduirai ton code sur C ou C++ sera plus aidé en voyant Double ou Single qui existent en C/C++ qu'en voyant Real qui n'existe pas forcement en C/C++.

autre erreur à eviter, le constructeur et destructeur sont généralement PUBLIC.

ici, tu n'as pas besoin de redefinir le destructeur.

si tu tiens à assigner une valeur par défauts aux arguments de méthodes, utilise le mot clef "const" :

Code:

constructor Create(const aX: double=0; const aY: double=0);

tu peux également overloader le constructeur :
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 TRPoint = class public X, Y : double; public constructor Create; overload; constructor Create(const aX, aY: double); overload; end; constructor TRPoint.Create; begin // constructeur principal X := 0; Y := 0; end; constructor TRPoint.Create(const aX, aY: double); begin Create; // facultatif X := aX; Y := aY; end;
pourquoi on crée plusieurs constructeur ?
- parce que c'est mieux ainsi et on peux gérer de façon différente la creation d'une classe.

pouquoi on appel un constructeur dans un autre ?
- on doit absoluement definir qui des constructeurs overloader est le principal. on l'appelera par défaut (ou non) pour initialiser des divers traitements indépendant des autres constructeur. par exemple la creation de sous-classes, l'initialisation d'autres variables etc.

exemple :
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 33 34 35 36 37 38 39 40 41 42 43 44 45 46 type TRPoint = class public X, Y: double; // sont des variables publiée de classe public constructor Create; overload; // constructeur principal constructor Create(const aX, aY: double); overload; constructor Create(const aRPoint: TRPoint); overload; constructor Create(var aRPoints: array of TRPoint); overload; end; { TRPoint } constructor TRPoint.Create; // RPoint := TRPoint.Create; begin X := 0; Y := 0; end; constructor TRPoint.Create(const aX, aY: double); // RPoint := TRPoint.Create(10, 20); begin Create; X := aX; Y := aY; end; constructor TRPoint.Create(const aRPoint: TRPoint); // RPointB := TRPoint.Create(RPointA); begin Create; X := aRPoint.X; Y := aRPoint.Y; end; constructor TRPoint.Create(var aRPoints: array of TRPoint); // TRPoint.Create([RPointA, RPointB, RPointC, RPointD, RPointE]); // TRPoint.Create(RPointArray); var N : LongInt; begin aRPoints[0] := Self; for N := 1 to high(aRPoints) do aRPoints[N] := TRPoint.Create(Self); end;
autre exemple ou l'on justifie le contructeur et le destructeur, car chaques RPoint vas être inscrit dans une poubelle qui s'assure que tout les RPoints créés seront libérés à la fin du programme :
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 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 unit Unit5; interface type TRPoint = class public X, Y: double; public constructor Create; overload; constructor Create(const aX, aY: double); overload; destructor Destroy; override; end; implementation uses classes; var RPointGarbage : TList; { TRPoint } constructor TRPoint.Create; // RPoint := TRPoint.Create; begin // inscription du RPoint créé dans la poubelle RPointGarbage.Add(Self); // init X := 0; Y := 0; end; constructor TRPoint.Create(const aX, aY: double); // RPoint := TRPoint.Create(10, 20); begin // appel du constructeur principal Create; // assignation des valeurs X := aX; Y := aY; end; destructor TRPoint.Destroy; var I : LongInt; begin // désinscription du RPoint de la poubelle I := RPointGarbage.IndexOf(Self); if I <> -1 then RPointGarbage.Delete(I); // appel du destructeur ancêtre inherited; end; { initialisation de l'unité } initialization // creation de la poubelle à RPoints RPointGarbage := TList.Create; { finalisation de l'unité } finalization // vidage de la poubelle while RPointGarbage.Count > 0 do TRPoint(RPointGarbage.Items[RPointGarbage.Count-1]).Free; // libération de la poubelle RPointGarbage.Free; end.

28/12/2009, 14h56
Dereck07

:ccool: Merci

C'est nickel, j'ai tous les élements pour me créer des class proprement.

Encor merci :D