Discussion :

[ovni76]

Bonjour,
J'ai une application de base de données avec une fiche principale et des fiches secondaires et une unité commune où j'ai des fonctions ou procédures utilisées par tout les unités. Cette unité n'ayant pas de fiche est n'apparait dans le projet que comme une unité, pas de création ...
Dans cette unité commune j'ai déclaré des variables communes dont une MTABLE qui est le résultat d'un calcul réalisé dans la fiche principale qui est

Code :

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

MTABLE:=MCHEMIN+'tables'+MSEPARATEUR+MBASE;

MTABLE correspond à la valeur de FileName d'un TSqlite3Dataset
MSEPARATEUR lui correspond au séparateur de dossier différent selon windows ou linux
MBASE étant le nom de la base de donnée sqlite3
Je cherche à utiliser cette valeur calculée MTABLE dans une fiche secondaire pour déclarer le FileName de tables utilisées seulement dans cette fiche et erreur. Si via le Débugueur et sa fonction d'évaluation ou via un message la valeur de MTABLE='' mais si je la recalcule elle retrouve la bonne valeur.
Erreur de vieux débutant ?, je pensais que la variable déclarée en commun pouvait avoir sa valeur calculée dans toutes les fiches.
Merci d'avance

[ThWilliam]

Bonjour,

Apparemment, dans ton cas, la valeur de MTABLE a été utilisée par ta fiche secondaire lors de sa création, AVANT qu'elle ne soit initialisée dans la fiche principale.
L'idéal, quand on déclare une variable globale dans une unité spéciale, c'est de l'initialiser dans cette unité.
Où ? : dans la section initialization de cette unité.
Mais cela suppose évidemment que cette unité ait déclaré et initialisé aussi MCHEMIN, MSEPARATEUR, MBASE.
Dans ce genre d'unité, il faut éviter toute référence à une unité liée à une fiche.

Cordialement
Thierry

[ovni76]

Merci Thierry pour ta réponse mais je ne trouve pas de section initialization danss mes unités, j'ai oublié de préciser que je suis sous linux.
J'ai regardé dans le projet car utilisant un datamodule j'ai eu des problèmes car cette unité n'était pas la première dans le projet, et mon unité principale est juste derrière la déclaration du datamodule et les unités secondaires sont déclarées après sauf si le système ne suis pas la liste dans le projet.
Pour régler mon problème je redéclare la valeur dans mon unité secondaire ce n'est pas très pro mais mon problème est réglé pour l'instant.
Encore merci A+

[M.Dlb]

Il faut rajouter cette section initialization juste avant le end. de ton unité. Par la même occasion, tu peux aussi ajouter une section finalization par exemple pour libérer un objet alloué dans la section initialization.

Code :

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

1
2
3
4
5
initialization
  Mylist := TList.Create;
finalization
  MyList.Free;
end.

[ovni76]

Ok merci j'aurais encore appris sur lazarus et c'est très bien ainsi.