Discussion :

[dirty_boy]

Salut,

Je suis en train de programmer sous delphi 7 et c'est ma première vrai programmation de classes sous delphi.
Malheureusement comme ma plupart des "première fois" ca ne se passe pas trop bien .
Je vous donne le code :

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
 
type
  TForm1 = class(TForm)
 
    Edit2: TEdit;
 
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
 
 
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
 
end;
 
type
  CAntenne=Class(TObject)
 
    Puissance_Cre: Single;
 
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  Puissance_Moy: Single;
 
end;
 
 
var
  Form1: TForm1;
  Antenne: CAntenne;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 
        //:=StrToInt(Edit1.Text);
  Antenne.Puissance_Cre:=StrToInt(Edit2.Text);
 
end;
 
end.

le problème c'est que lorsque j'appuie sur le bouton un message d'erreur apparait:

Code :

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

1
2
3
 
 
le projet à provoqué une exception de type access violation...

je pense que c'est un problème de compatibilité entre les classes Tform et Cantenne mais je ne sais pas comment le résoudre.

Merci d'avance pour vos réponses.

[sjrd]

Contrairement au C++, en Delphi les objets sont tous des pointeurs. Donc tu dois créer ton Antenne avant de l'utiliser, et la libérer une fois que tu n'en as plus besoin :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.FormCreate(Sender: TObject);
begin
  Antenne := CAntenne.Create;
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  Antenne.Free;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Antenne.Puissance_Cre := StrToInt(Edit2.Text);
end;

PS : en général, on nomme les classes en les faisant commencer par T (pour Type) et non C (pour Class je suppose ?) mais c'est juste une question de norme

[Manopower]

Bonjour,
Je pense qu'un tour vers les tutoriels sur les classes seraient le bienvenu.
En effet, tu essaies d'affecter une valeur à une variable d'un objet qui n'est pas créé
Donc delphi ne trouve pas cette variable, et donc il te dis "violation d'acces" (j'ai essayé d'accéder à la variable mais j'ai pas réussi)

Dans le formCreate de ta fiche, essaye

Code :

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

Antenne := CAntenne.create(Self);

Puisque tu as bien déclaré la variable Antenne.

Dans un deuxième temps tu devrais faire un constructeur create afin d'initialiser tes deux variables Single (si je parle chinois ce sera bien expliqué dans les tutoriaux)

Bonne recherche !

[dirty_boy]

un grand merci s'impose

en fait mon gros problème c'est que mon travail m'impose de passer de la programmation en C minimaliste ( programmation pour µcontroleur) à la programmation en Delphi de facon régulière et je perd les bons automatismes.

encore merci pour vos solutions.