Bonjour à tous,

Je crois que mon problème vient de ma façon d'appréhender la conception objet.
J'ai une unitée toute simple qui réalise des calculs de distances, implémenter comme ceci:

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
type TTableauSection = class(TObject)
  private
    NbreSectionsneutres,taille:integer;
    pkDebutLigne,pkFinLigne:double;
  public
    function CalculSectionNeutre(numero_simu : integer) : integer;
end;
 
----
 
function TTableauSection.CalculSectionNeutre(numero_simu : integer) : integer;
begin
 DataModule1.Query_SIM_TOPO.Open;
 NbreSectionsneutres := 0;
------
end;
Dans une autre unité, j'utilise cette unité et je déclare : FTableauSection : TTableauSection, puis je fais appel à ma fonction par:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
num := FTableauSection.CalculSectionNeutre(1);
Mon problème, c'est que lorsque je fait une exectution pas à pas et que mon programme arrive sur " NbreSectionsneutres := 0;" alors il saute directement à une autre partie de mon programme...

Quelqu'un saurait-il d'où cela peut provenir? Toutes les suggestions sont les biens venus.

Merci, @+.