Discussion :

[adeltimple]

Bonjour.
Je suis actuellement en train de developper une application sous delphi avec de l'héritage, du polymorphisme ....
Mon problème est (à première vue) assez simple mais je galère dessus depuis une bonne partie de la nuit:
j'ai un formulaire (nomé billeterie) et une unité (nomé Unit1).
l'unité comporte mes classes et mes méthodes.
dans l'une de ces dernière j'ai besoin d'acceder aux données de mon firmulaire (zone de texte) pour récupérer des données.
Le problème et que je peut y avoir acces


la fonction qui pose problème est cette dernière:

Code :

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

1
2
3
4
5
6
7
8
9
function billet_classe2.payer ():real;
begin
   If (not enf_chom)
   then
     result:=2;
   enfant:=strtofloat(Form1.txt_enfant.Text);
   chom:=strtofloat(Form1.txt_chom.Text);
   enf_chom:=true;
end;

on me retourne donc les erreures suivantes

[Erreur] Unit1.pas(76): E2003 Identificateur non déclaré : 'strtofloat'
[Erreur] Unit1.pas(76): E2003 Identificateur non déclaré : 'Form1'
[Erreur] Unit1.pas(76): E2066 Opérateur ou point-virgule manquant
[Erreur] Unit1.pas(77): E2066 Opérateur ou point-virgule manquant
[Erreur] Unit1.pas(77): E2066 Opérateur ou point-virgule manquant
[Erreur] Unit1.pas(77): E2029 '(' attendu(e) mais ')' trouvé(e)
[Erreur] Unit1.pas(78): E2066 Opérateur ou point-virgule manquant
[Erreur fatale] billeterie.pas(7): F2063 Impossible de compiler l'unité utilisée 'Unit1.pas'

dans mon unité j'ai donc mis un Uses vers mon formulaire:

Code :

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

1
2
uses
   billeterie;

malheureusement cela créé une erreur dans mon uses de mon formulaire qui est:

Code :

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

1
2
3
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,Unit1, StdCtrls, Menus;

l'erreur est:

[Erreur fatale] billeterie.pas(7): F2047 Référence d'unité circulaire à 'billeterie'

si quelqu'un pourrait m'aider ça serait sympa
merci

[neodelphi2007]

Il faut mettre ton

Code :

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

1
2
3
 
uses
 billeterie ;

dans la partie implementation de ton unité unit1

[Andnotor]

Le raisonnement devrait être inverse.

Ce ne sont pas tes classes qui récupèrent les données des formulaires, mais les formulaires qui doivent remplir les classes.

[adeltimple]

Il faut mettre ton

Code :

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

1
2
3
 
uses
 billeterie ;

dans la partie implementation de ton unité unit1

Parfait!! ça marche! merci de ton aide

[popo]

adeltimple, ta conception de l'objet est bizarre.
La remarque de Andnotor est tout à fait justifiée.

En gros tu devrais avoir un truc du genre

Code :

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

1
2
3
4
5
6
7
8
9
10
 
function billet_classe2.payer (REnfant, RChom : Real):real;
begin
   If (not enf_chom)
   then
     result:=2;
   enfant:=REnfant;
   chom:=RChom;
   enf_chom:=true;
end;

Et l'appeler de cette façon

Code :

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

1
2
 
MonBilletClasse2.Payer(StrToFloat(txt_enfant.Text),StrToFloat(txt_chom.Text));

Et encore, il faudrait vérifier que les valeur contenus dans txt_enfant.Text et txt_chom.Text sont bien des réels.