Déclarer une variable globale au projet
Bonjour,
Ma problématique : toutes les forms de mon projet doivent utiliser une instance (toujours la même = instance unique) de classe.
La classe manipulant beaucoup de données, je désire créer l'instance une et une fois au lancement du projet puis y faire référence depuis les forms.
J'ai donc instancié la classe dans la section program du genre :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
| program InterMsg;
uses
Forms,
Console in 'Console.pas' {Form1},
_InterMsg in '_InterMsg.pas',
_InterMsgList in '_InterMsgList.pas' {Form2};
var
MonInstance: TInternat;
{$R *.res}
begin
Application.Initialize;
MonInstance:= TInternat.Create;
Application.CreateForm(TForm1, Form1);
Application.Run;
end. |
Comment faire référence à l'instance depuis les forms ?
Existe t'il une solution plus "propre" pour obtenir le même résultat ?
Merci par avance pour vos réponses ou suggestions.
Delphi+
