Discussion :

[rasmus]

Bonjour à tous,

Savez-vous comment déclarer une variable globale utilisable dans toutes les Unités de mon projet?

J'ai essayé de déclarer la variable dans une section "var" créée après la section "uses" dans le source de mon projet.lpr => erreur à la compilation (variable non reconnue dans les unités)

Merci,
Ras

OK ça marche en suivant les conseils de Maxinoob et Ovni76 que je remercie
Pas'

[maxiNoob]

slt ami noob, en attendant le passage d'un pro, voila mon avis
le fichier projet: pas touche, faut laisser l'edi le gérer

créer une unité Config
dans l'interface déclarer tes variables

mettre Config dans tous les Uses des autres unités

ça n'est que mon avis

[ovni76]

Je confirme la réponse de MaxiNoob, j'ai eu le même besoin pour savoir contrôler au moment de quitter mon application avec base de données si des tables avaient changées.
Ayant une unité avec des fonctions utilisables par toutes les autres que j'ai nommées uoutils :

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
unit uoutils;  // unité outils le 04 février 2010 vers 14h05
               // ajout LongueurDonnee
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, Dialogs,  Controls;
 
  function DeuxDecimales(Entree:String):String;
  function TraitementMasque(Entree: String): String;
  Procedure CopierFichier (Source, Destination : String);
  procedure MessageErreur;
  procedure MessageInformation;
  procedure MessageConfirmation;
 
  var
   MMESSAGE,MMODIFICATION:String;
   MREPONSE:Boolean;
 
implementation

dans les déclarations de variable j'en ai une MMODIFICATION que je teste avant de quitter mon appli et c'est le seul endroit où elle est déclarée, mais je l'utilise dans toutes les autres unités en ajoutant dans la ligne uses : uoutils.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
unit uentrer;  // entrée d'opérations le 31 octobre 2009 vers 11h45
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  ExtCtrls, Buttons, DBGrids, DbCtrls, StdCtrls, Calendar, udata,
  uoutils, MaskEdit;
 
type
 
  { TFentrer }

Et sa marche bien.
A+

[Gouyon]

Je confirme aussi c'est un bon moyen. De même on peut aussi mettre dans cette unité commune des fonctions qui seront utilisable partout.

[rasmus]

J'avais effectivement lu ton post antérieur où tu posais cette question; je vais donc créer une unité pour les variables globale.

Si je nomme cette unité "globales":
1) suis-je obligé de créer une fiche graphique?
2) pour appeler les variables globales dans d'autres units, je dois saisir quoi? "globales.nomvariable"? "nomvariable"?

Ras'