classe et unit

classe et unit - Delphi/Pascal - Programmation

Marsh Posté le 04-12-2004 à 23:45:20    

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
Reply

Marsh Posté le 04-12-2004 à 23:45:20   

Reply

Marsh Posté le 05-12-2004 à 11:55:35    

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
Reply

Marsh Posté le 05-12-2004 à 16:40:34    

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

Reply

Marsh Posté le 05-12-2004 à 17:02:50    

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
Reply

Marsh Posté le 05-12-2004 à 17:18:52    

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

Reply

Marsh Posté le 05-12-2004 à 17:41:41    

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
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed