Comportement anormal de mon code?
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:
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:
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, @+.
