Discussion :

[Pierre95]

Bonjour,
Vous allez probablement me trouver très nul, mais voici une procédure:

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
procedure GetSubsonicStepDistance;
var
  intIndex,
  intDiff,
  intDepDist,
  intCumDist: Integer;
begin
  with frmTripPlanner do
  begin
    intDepDist:= StrToInt(edSubDepDist.Text);
    intIndex:= cbxDepWp.ItemIndex;
    intCumDist:= StrToInt(GstlWPDist[intIndex]);
    intDiff:= StrToInt(GstlWPDist[intIndex + 1])
            - StrToInt(GstlWPDist[intIndex]);
    GintDepProtectDist:= intDepDist;
    while intDepDist >= intDiff do
    begin
      intDepDist:= intDepDist - intDiff;
      Inc(intIndex);
      cbxDepWp.ItemIndex:= intIndex;
      intCumDist:= StrToInt(GstlWPDist[intIndex]);
      edSubDepDist.Text:= IntToStr(intDepDist);
      GintDepProtectDist:= intDepDist + intCumDist;
      intDiff:= StrToInt(GstlWPDist[intIndex + 1])
              - StrToInt(GstlWPDist[intIndex]);
    end;
    lblTotalDepStep.Caption:= 'Total Depart. Distance: '
                              + IntToStr(GintDepProtectDist) + ' NM';
  end;
end;

Dans la quelle, alors que :

Code :

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

GstlWPDist[intIndex]

Contient : '51',

Code :

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

 intCumDist:= StrToInt(GstlWPDist[intIndex]);

Est égal à 0.

Une explication?

Cordialement
Pierre

Cordialement

[ShaiLeTroll]

Sans savoir ce qu'il y a réellement dans GstlWPDist, difficile de répondre
Es-tu sûr que intIndex soit bon ?
GstlWPDist est un array of string, une TStringList ?
Avec un tableau, tu peux lire en dehors, avec une TStringList cela provoque une exception

[Pierre95]

merci de votre réponse,

GstWPDist est une TStringList.
La TStringlList contient
0
51
177
370
435
713
903
1284
...
3310


intIndex est correct (1) et la Chaine lue dans la TStringList est '51'.

Cordialement
Pierre

[Pierre95]

Bonjour,

Le problème est résolu, sans que je puisse expliquer pourquoi.
J'ai modifié le code donné dans le premier post en :

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
17
18
19
20
21
22
23
24
25
26
27
procedure GetSubsonicStepDistance;
var
  intIndex,
  intDiff,
  intDepDist: Integer;
  intCumDist : Integer;
begin
  intDepDist:= StrToInt(edSubDepDist.Text);
  intIndex:= cbxDepWp.ItemIndex;
  intCumDist:= StrToInt(GstlWPDist[intIndex]);
  intDiff:= StrToInt(GstlWPDist[intIndex + 1])
          - StrToInt(GstlWPDist[intIndex]);
  GintDepProtectDist:= intDepDist + intCumDist;
  while intDepDist >= intDiff do
  begin
    intDepDist:= intDepDist - intDiff;
    Inc(intIndex);
    cbxDepWp.ItemIndex:= intIndex;
    intCumDist:= StrToInt(GstlWPDist[intIndex]);
    edSubDepDist.Text:= IntToStr(intDepDist);
    GintDepProtectDist:= intDepDist + intCumDist;
    intDiff:= StrToInt(GstlWPDist[intIndex + 1])
            - StrToInt(GstlWPDist[intIndex]);
  end;
  lblTotalDepStep.Caption:= 'Total Depart. Distance: '
                            + IntToStr(GintDepProtectDist) + ' NM';
end;

Et tout fonctionne parfaitement.

merci de votre temps.

Cordialement
Pierre