Discussion :

[Dereck07]

Bonjour,

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

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

[Fenix01]

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

Code :

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

pp := Trpoint.Create;

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

Code :

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

pp.free;

[Dereck07]

pp.free ou pp.Destroy ?

[Fenix01]

bonjour,

il vaut mieux utiliser free.

Copie de l'aide delphi :

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.

[Dereck07]

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?

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