Variable Private et Composant non reconnus dans function sur même form.

Bonjour

J ai une fonction toute bête qui retourne un double. Elle est sur ma Form1, Form1 sur laquelle un est posé un TNumberBox du nom de Numb_Slippage. Une variable TickSize est declarée en "Private" sur cette form1, tout comme 2 autres varibales "Private" : Frais et TickValue.

Mon pb est que dans le code de ma fonction TickSize et Numb_Slippage ne sont pas reconnus (undeclared identifier) alors que TickValue decalré au même endroit et initialisés au même endroit que TickSize est pris en compte.

J ai raté quoi ?

Merci pour votre aide.

Code:

---

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

function CalculDiff(Trade: TTrade): double; var Diff: double; begin Diff := (Trade.PrixClose - Trade.PrixOpen); Diff := Diff / TickSize; Diff := Diff * Trade.Sens; Diff := Diff - (Numb_Slippage.value * 2); Diff := TickValue * Diff; Diff := Diff - (2 * Frais); result := Diff; end;

---

CalculDiff n'appartient pas à ta classe.
Elle n'a donc pas accès à ses objets.

Code:

---

function TForm1.CalculDiff(Trade: TTrade): double;

---

et Il faudrait se demander si il y n'a pas des variables globales qui portent le même nom que des propriétés, TickValue semble donc douteuse.

Sinon la convention est de préfixer les variables privées par un F comme Field pour les différencier des propriété publiques
Tout comme Trade plutôt nommé ATrade pour savoir que c'est Argument, encore une fois utile si une propriété et argument peut avoir le même nom, on n'a pas de toute.

Merci pour vos réponses.
En effet, j avais cette fonction dans une unité séparé et ai fait un simple copier coller... j ai passé un temps fous à chercher... :oops::oops::oops:

Tu devrais pas mettre cette fonction dans TForm1, c'était très bien dans une unité séparé, juste CalculDiff pourrait prendre plus de paramètres :

Code:

---

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

function CalculDiff(ATrade: TTrade; AContext: TTradeContext): double; var Diff: double; begin Diff := (ATrade.PrixClose - ATrade.PrixOpen); Diff := Diff / AContext.TickSize; Diff := Diff * ATrade.Trade.Sens; Diff := Diff - (AContext.Numb_Slippage.value * 2); Diff := AContext.TickValue * Diff; Diff := Diff - (2 * AContext.Frais); result := Diff; end;

---

Cela permet de la réutiliser TTrade et TTradeContext pouvant être de simple record ... même si l'on devine que l'on pourrait créer un objet à la place

@ShaiLeTroll merci pour ton conseil, je vais faire cela.