Initialization et DecimalSeparator

Bonjour,

Question toute bête de débutant :
Oú donc placer la section 'Initialization" dans l'unité principale pour imposer la virgule comme DecimalSeparator ?

J'ai remarqué ça sur une de ces excellentes questions de la FAQ de Nono and Cie :
http://delphi.developpez.com/faq/?pa...racteredecimal

Code:

---

1 2 3

Initialization DecimalSeparator := '.'; end.

---

Perso mon appli est basée exclusivement avec la virgule, aucun blème pour échanger le "point" du code ci-dessus par une "virgule" ?

Merci de vos lumières éclairées.

PS : J'ai inséré cette partie "Initialization" (avec une virgule) tout au bas de ma fiche principale, là seulement ça passe lol ; suis-je dans le vrai ?

Salut

Les clauses initilization (cf F1) sont exécutées au tout début du chargement. Deux options:
- soit l'affectation de DecimalSeparator ne joue pas sur d'autres sections Initialization et dans ce cas tu peux la placer dans n'importe quelle unité,
- soit l'affectation joue une rôle dans une unité (A) et dans ce cas tu as intérêt de créer une clause Initialization dans une unité appraissant dans la clause Uses de l'interface de cette unité A.

Cela devrait te dépanner.

Rem : la notion d'unité principale est en soit assez curieuse, mais c'est vrai qu'il y a une précédence entre les unités (guidée par les relation de clientèle établies grâce aux section uses).
Par contre, la fiche "principale" étant souvent cliente de nombreuses autres, il y a donc de grandes chances que ce ne soit pas celle dont la clause Initialization sera exécutée en premier.

cdlt

e-ric

Bonsoir,

Merci e-ric de ce long développement.

Pour le F1, rien de tangent sur ma version perso par rapport à mon niveau pour me guider.

Tu écrivais :

Citation:

---

[...] et dans ce cas tu as intérêt de créer une clause Initialization[...]

---

Justement, si je pouvais savoir comment et à quel endroit de ma fiche cette clause "Initialisation", ce serait super lol

Au bas de cette fiche comme indiqué sur ma question dito ?

J'ai en effet plusieurs fiches, mais il s'agit seulement de la Form1 qui seule est créée automatiquement.

Les clauses Initialization et Finalization (son symétrique) sont toujours en fin d'unité.

Par ailleurs, l'exécution de la clause Initialization est indépendante du fait qu'une fiche soit auto-créée ou non. Il faut raisonner sur les unités et leur inter-dépendances et non sur les objets dont elles contiennent le code.

Tu as compris?

cdlt

e-ric

Re e-ric

Citation:

---

Par ailleurs, l'exécution de la clause Initialization est indépendante du fait qu'une fiche soit auto-créée ou non. Il faut raisonner sur les unités et leur inter-dépendances et non sur les objets dont elles contiennent le code.

---

Je mentionnais simplement que mon appli possédait plusieurs fiches lol

Oui merci, là je pense avoir pigé, donc j'ai bien fait de placer cette clause Initialization au pied de ma fiche.

[...] Les clauses initilization sont exécutées au tout début du chargement [...]
Alors Delphi commence à rechercher au pied de chaque fiche pour voir si pas cette clause.

Si pas cette clause then il reprend au début ?

Autre solution, le mettre dans le projet :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

program Project1;   uses Forms, SysUtils, // <- Ajouter SysUtils dans les Uses Unit1 in 'Unit1.pas' {Form1};   {$R *.res}   begin Application.Initialize; DecimalSeparator := '.'; Application.CreateForm(TForm1, Form1); Application.Run; end.

---

Bloon

Bonjoir,

Bloon, oki, oki comme ça je suis paré, merci !

Je ne connaissais pas du tout cette manip.

Citation:

---

Envoyé par J-P

Les clauses initilization sont exécutées au tout début du chargement [...]
Alors Delphi commence à rechercher au pied de chaque fiche pour voir si pas cette clause.

---

Oui en respectant les relation de dépendances données par les clauses Uses (ce qui est logique et souhaitable).

Citation:

---

Envoyé par J-P

Si pas cette clause then il reprend au début ?

---

Il ne fait rien pour l'unité qui en est démunie (c'est une clause facultative).
Une fois toutes les clauses Initialization exécutées, il passe à l'exécution du programme principal (le fichier de projet DPR).

Bloon t'a proposé de faire l'affectation en début de progamme, c'est un choix, cela signifie que l'affectation aura lieu après l'exécution des éventuelles clauses Initialization de tes unités. Si les clauses Uses sont indépendantes de cette affectation, c'est la réponse la plus simple et sans doute la plus pertinente.

cdlt

e-ric

Effectivement, cette solution suppose que DecimalSeparator ne soit pas nécessaire dans les clauses initialization des unités.

Si ça n'est pas le cas, alors il faut initialiser DecimalSeparator dans la 1ère unité du projet, par exemple :

Code:

---

1 2 3 4 5 6 7 8 9

program Project1;   uses Forms, Unit3 in 'Unit3.pas', Unit2 in 'Unit2.pas' {Form2}, Unit1 in 'Unit1.pas' {Form1};   ...

---

=> là il faudra le mettre dans la partie initialization de Unit3 :

Code:

---

1 2 3 4 5 6 7 8 9

unit Unit3; ... uses SysUtils; ... initialization DecimalSeparator := '.';   end.

---

Code:

---

1 2 3 4 5 6

unit Unit2; ... initialization showMessage(floatToStr(strToFloat('1.2')));   end.

---

Bloon

Bonsoir !

Encore merci à vous deux, cette fois je suis super informé sur ce sujet très précis, et je sais désormais que plusieurs solutions existent.

http://www.developpez.be/forums/images/smiles/chin.gif