Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1529 connectés 

  FORUM HardWare.fr
  Programmation
  Delphi/Pascal

  classe et unit

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

classe et unit

n°914966
website200​0
Posté le 04-12-2004 à 23:45:20  profilanswer
 

Salut,
 
j'aurais besoin de votre aide...
 

Code :
  1. unit Unit1;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, Menus, StdCtrls;
  8. type
  10.     Stationnement = class
  11.     private
  12.       Place : integer;
  13.       Cout : integer;
  14.       TerrainOccuper : integer;
  15.       VoitureEntrerTotal : integer;
  16.     public
  17.       constructor Create;
  18.     end;
  19.   TForm1 = class(TForm)
  20.     Button1: TButton;
  21.     Button2: TButton;
  22.     Button3: TButton;
  23.     Button4: TButton;
  24.     Button5: TButton;
  25.     MainMenu1: TMainMenu;
  26.     Fichier1: TMenuItem;
  27.     procedure Fichier1Click(Sender: TObject);
  28.     procedure Button1Click(Sender: TObject);
  29.     procedure Button3Click(Sender: TObject);
  30.     procedure Button4Click(Sender: TObject);
  31.     procedure Button5Click(Sender: TObject);
  32.     procedure Button2Click(Sender: TObject);
  33.   private
  34.     { Déclarations privées }
  35.   public
  36.     { Déclarations publiques }
  37.   end;
  39. var
  40.   Form1: TForm1;
  41.   NombreStationnement: array[1..3] of Stationnement;     //Instance de Stationnement
  42.   var i : integer;
  44. implementation
  45. uses Unit2;
  47.   constructor Stationnement.Create;  //On crée un stationnement
  48.   begin
  49. Place := 50;
  50. Cout := 10;
  51.   TerrainOccuper :=0;
  52.   VoitureEntrerTotal :=0
  53.   end;


 

Code :
  1. unit Unit2;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, Menus,Unit1;
  9. type
  11.   TForm2 = class(TForm)
  12.     Edit1: TEdit;
  13.     Edit2: TEdit;
  14.     Edit3: TEdit;
  15.     Edit4: TEdit;
  16.     Label1: TLabel;
  17.     Label2: TLabel;
  18.     MainMenu1: TMainMenu;
  19.     Options1: TMenuItem;
  20.     Entrerunvhicule1: TMenuItem;
  21.     Sortirunvhicule1: TMenuItem;
  22.     Fermer1: TMenuItem;
  23.     Entrer1: TMenuItem;
  24.     Sortir1: TMenuItem;
  25.     Gains1: TMenuItem;
  26.     entrestotales1: TMenuItem;
  27.     Label3: TLabel;
  28.     Label4: TLabel;
  29.     procedure FormShow(Sender: TObject);
  30.     procedure entrestotales1Click(Sender: TObject);
  31.   private
  32.     { Déclarations privées }
  33.   public
  34.     { Déclarations publiques }
  35.   end;
  36. var
  37.   Form2 : TForm2;
  39. implementation
  40. {$R *.dfm}
  42. procedure TForm2.FormShow(Sender: TObject);
  43. begin
  44. Edit2.Text := inttostr(NombreStationnement[1].TerrainOccuper);
  45. end;


 
C'est une partie de mes 2 form
Dans mon premier form pour entrer des paramètres dans ma class "Stationnement" j'utilise "NombreStationnement[]". Pour ça sa fonctionne... Quand je veux reutilisé ma classe "Stationnement" grâce a "NombreStationnement[]" dans ma form2 c'est impossible...
 
J'ai fais plusieurs test de différentes façons et j'ai fais plusieurs recherches sous google sans rien trouver pour mon problème. J'ai trouvé pour une classe seul mais dès qui a un tableau plus rien marche.
 
Je vous remercie d'avance.  :hello:


Message édité par website2000 le 04-12-2004 à 23:46:28
mood
Publicité
Posté le 04-12-2004 à 23:45:20  profilanswer
 

n°915029
antp
Super Administrateur
Champion des excuses bidons
Posté le 05-12-2004 à 11:55:35  profilanswer
 

website2000 a écrit :

c'est impossible


 
... c'est-à-dire ?


Message édité par antp le 05-12-2004 à 11:56:03

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
n°915161
website200​0
Posté le 05-12-2004 à 16:40:34  profilanswer
 

le compilateur me dit Undeclared identifier "TerrainOccuper"
dans ma form2

n°915167
antp
Super Administrateur
Champion des excuses bidons
Posté le 05-12-2004 à 17:02:50  profilanswer
 

bah c'est normal : il est en private et donc ne peut être manipulé que par la classe elle-même et les classes qui sont dans la même unit qu'elle...


Message édité par antp le 05-12-2004 à 17:03:08

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
n°915177
website200​0
Posté le 05-12-2004 à 17:18:52  profilanswer
 

ok merci... a part mettre mes valeurs en public existe t'il une autre manière de procéder ?

n°915193
antp
Super Administrateur
Champion des excuses bidons
Posté le 05-12-2004 à 17:41:41  profilanswer
 

Faire des property pour accéder aux variables de manière "propre" (càd en lecture seule par exemple, ou prévoir la possibilité d'appeler une fonction lors de l'assignement d'une valeur)
 
L'intérêt de mettre les valeurs en privé c'est pour que seule la classe y ait accès directement


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

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  Delphi/Pascal

  classe et unit

 

Sujets relatifs
Serialisation de classe en c++[C++] Pointeur sur constructeur ou Pointeur sur Classe ?
[GTK & C++] compilation de classe avec erreurProbleme avec une classe que j'ai herité
un map<> static dans une classe ?[JAVA] Le type Super Classe ne peut être résolu...
Classe Vector: différence entre at() et [ ] ?help classe auto référentielle ( chainage d'objets )
classe HashMap avec jspprobleme de classe
Plus de sujets relatifs à : classe et unit

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.057 secondes

Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR