Discussion :

[Pierre95]

Bonjour,
J'utilise une fonction dans mon appli qui est appelée à divers endroit.
Elle fonctionne parfaitement pour tous ces appels sauf un pour lequel le "Result" contient bien une valeur, mais la variable qu'elle est sensée modifiée reste à zero.

Voici la fonction:

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
31
32
33
34
35
36
37
38
39
function ConvertCoordinatesD(sCoord:String):Single;
var pSec, pMin, pDeg               : Integer;
    Dir, sSeconds, sMinutes, sDegres     : String;
    dSeconds, dMindec, dMinutes, dDegres : Single;
begin
  pSec:= 0;
  pMin:= 0;
  pDeg:= 0;
  dMindec:= 0;
  sCoord := ReplaceText(sCoord, ' ', '');
  Dir := Copy(sCoord, 1, 1);
// récupération des positions des divers symboles "; .; '; ° ou *
  if Pos('"', sCoord) <> 0 then
    pSec:= Pos('"',sCoord);
  if Pos('''', sCoord) <> 0 then
    pMin:= Pos('''',sCoord)
  else
    PMin:= Pos('*', sCoord);
  if Pos('°', sCoord) <> 0then
    pDeg:= Pos('°', sCoord);
  if Pos('*', sCoord) <> 0 then
    pDeg:= Pos('*', sCoord);
  if pSec <> 0 then
  begin
    sSeconds:= Copy(sCoord, pMin + 1, (pSec - pMin)-1);
    dSeconds:= StrToFloat(sSeconds);
    dMindec:= dSeconds/60;
  end;
  if (pMin <> 0)
  and(pSec = 0) then
    sMinutes:= Copy(sCoord, pMin + 1, Length(sCoord)-1)
  else if (pMin <> 0)then
    sMinutes:= Copy(sCoord, pDeg + 1, (pMin - pDeg)-1);
  dMinutes:= StrToFloat(sMinutes);
  dMindec:= (dMinutes + dMindec)/60;
  sDegres:= Copy(sCoord, 2, (pDeg - 2));
  dDegres:= StrToFloat(sDegres);
  Result:= dDegres + dMindec;
end;

Et voici le code pour lequel elle renvoie zero:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
begin
      RichEdit_MoveTo(redlog,Row , 31);
      Application.ProcessMessages;
      redLog.SelLength:= 9;
      sLat:= redLog.SelText;
      RichEdit_MoveTo(redlog,Row + 1 , 29);
      Application.ProcessMessages;
      redLog.SelLength:= 11;
      sLon:= redLog.SelText;
      dLat:= ConvertCoordinatesD(sLat);
      dLon:= ConvertCoordinatesD(sLon);
    end;

dLon et dLat sont à zero alors qu'en pas à pas, le "Result" contient bien une valeur.

Merci de votre aide.

Cordialement
Pierre

[Papy214]

et ça se comporte toujours de la même manière dans ce code quelle que soit les valeurs de dlat et dlon ?

le code appelant est-il à un niveau quelconque englobé dans un try except qui n'afficherait pas l'erreur ?

[Invité]

Quelles sont les données (sLat et sLon) qui pose le problème ?

[Pierre95]

Bonjour et merci de vos réponses,

Le problème est que le déroulement de la fonction se fait normalement jusqu'à la ligne 38 où Result a bien une valeur décimale. Par contre au retour de l'appel, dLat et dLon restent à zero.
La valeur de SLat et sLon sont variables, il s'agit de coordonnées géographiques.
Un exemple:
sLat = 'N 49*01.9'
sLong = ' E 001*13.3'

Le result de la fonction contient:
Pour sLat = 49,031665802002
Pour sLon = 1,22166669368744

Ces résultats sont corrects mais ne jamais transmis à dLat et dLon.

Le code n'est en aucun cas à l'intérieur d'un Try Except.

Merci de vos lumières

Cordialement
Pierre

[Invité]

J'ai une erreur sur le StrToFloat si le séparateur n'est pas réglé sur le point. Rien ne change entre le point et la virgule sur tes différentes valeurs ? Aucune exception ?
Tu divise une valeur avec le séparateur point, et tu récupères une valeur avec le séparateur virgule.

[Pierre95]

Merci de ta réponse

La fonction est utilisée à plusieurs autres endroits et renvoie toujours un résultat avec virgule sans problème.

Voici un extrait de code qui appelle la fonction sans aucun problème.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
... LstrLatitude:= ReplaceText(Lstrlatitude,' ', '');
    LstrLongitude:= ReplaceText(Lstrlongitude,' ', '');
    LstrDirLatitude:= Copy(LstrLatitude,1,1);// N-S
    LstrDirLongitude:= Copy(LstrLongitude,1,1); // E-
    LfltLatitude:= ConvertCoordinatesD(LstrLatitude);
    if LstrDirLatitude = 'S' then
      LfltLatitude:= - LfltLatitude;
    LfltLongitude:= ConvertCoordinatesD(LstrLongitude);
    if LstrDirLongitude = 'W' then
      LfltLongitude:= - LfltLongitude;
    GstlMapPoints.Add(FloatToStr(LfltLatitude) + ';' +
                            FloatToStr(LfltLongitude));
...

[gbegreg]

Bonsoir,

Comme retwas, en reprenant le code indiqué dans le premier post, j'ai aussi l'erreur StrToFloat. Je suis sous Windows 10 avec le caractère virgule en tant que symbole décimal dans les options régionales de Windows.
Ce point est vite corrigé en ajoutant dans le code la ligne

Code :

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

System.SysUtils.FormatSettings.DecimalSeparator := '.';

Ensuite, j'ai le résultat attendu dans les variables dLat et dLon. Mon projet Delphi (VCL Windows 32 bits) est en configuration de construction Debug. Dans les options du projet, rubrique "Compilation", la case "Optimisations" est décochée.
Si je coche cette case, puis reconstruction du projet, j'obtiens le même problème : la variable result est bien alimentée mais de retour dans la méthode d'appel, dLat est à zéro. Par contre, si ensuite j'utilise la variable dLat (showmessage ou autre), dLat est bien renseignée.

Je pense que tu dois avoir la case "Optimisations" cochée et que tu n'utilises pas la variable dLat après l'appel à ConvertCoordinatesD. L'optimisation du deboggeur fait que cette variable n'est même plus connue du deboggeur puisqu'elle n'est plus jamais utilisée => pourquoi continuer à la gérer ?

[Pierre95]

Bonjour à tous,

Merci d'avoir pris du temps pour m'aider à résoudre ce problème.

gbegreg a parfaitement trouvé la cause de ce soucis et celui-ci est désormais réglé.

Merci encore de votre patience et de vos compétences.

Bien cordialement
Pierre

[Papy214]

Pour être sûr que ça fonctionne à chaque fois, dans la chaîne, remplacer tous les points et virgule par System.SysUtils.FormatSettings.DecimalSeparator