Recherche:

Bonjour,

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

procedure GetSubsonicStepDistance;
var
intIndex,
intDiff,
...

merci de votre réponse,

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

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

procedure GetSubsonicStepDistance;
var
intIndex,
intDiff,
intDepDist,
intCumDist: Integer;
begin