Discussion :

[defluc]

Bonjour

Je vous livre la procédure suivante :

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
Procedure TGisForm.ClosestPointOnSegmentFromPoint(const x1,y1,x2,y2,Px,Py:Double; out Nx,Ny:Double);
var
  Vx,Vy ,Wx, Wy, c1, c2, Ratio : Double;
begin
  Vx := x2 - x1; Vy := y2 - y1;
  Wx := Px - x1; Wy := Py - y1;
  c1 := Vx * Wx + Vy * Wy;
  if c1 <= 0.0 then
  begin
    Nx := x1;
    Ny := y1;
    Exit;
  end;
  c2 := Vx * Vx + Vy * Vy;
  if c2 <= c1  then
  begin
    Nx := x2;
    Ny := y2;
    Exit;
  end;
  Ratio := c1 / c2;
  Nx := x1 + Ratio * Vx;
  Ny := y1 + Ratio * Vy;
end;

Lors de sa compilation s'il y a une erreur de syntaxe, l'instruction mise en évidence n'est pas celle où se situe l'erreur mais bien une des lignes de déclaration.
Il en va de même pour toutes les procédures qui suivent dans la source.

Si quelqu'un a une idée...

[Pedro]

Lors de sa compilation s'il y a une erreur de syntaxe, l'instruction mise en évidence n'est pas celle où se situe l'erreur mais bien une des lignes de déclaration.

Ca veut dire que l'erreur ne se produit pas à chaque fois?

Autre chose qui n'a rien à voir, fais attention avec ceci:

Code :

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

1
2
 
if c2 <= c1  then

En effet, c1 et c2 sont de type double et l'égalité ne se produira jamais telle que tu l'as écrite. Il faut utiliser les fonctions spéciales comme SameValue, CompareValue, etc de l'unité Math.

[defluc]

L'erreur se produit à chaque fois.
J'ai donc relégué cette fonction en fin de source et tout se passe normalement pour les erreurs qui seraient relevées au débugage dans les procédures ou fonctions qui précèdent.

Ceci dit, merci pour ton éclairage sur les fonctions d'égalité que tu m'as renseignées.

[Faucon]

Code :

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

Ratio := c1 / c2;

Ne serait-ce pas une division par zéro ?
If(c2<>0)then Ratio:=c1/c2;
Cordialement.

[defluc]

Je pourrais faire le test si le risque existait que c2 soit égal à 0.
Mais ici mon problème n'est pas à l'exécution mais bien à la compilation.
La raison en est donc autre.

[Pedro]

Je ne comprends pas où se situe l'erreur:

• Dans la fonction?
• Dans les déclarations de la fonction?
• Dans la déclaration de la fonction dans l'unité?

Te serait-il possible de montrer plus de code le cas échéant?

[defluc]

Jipete,

J'en suis resté à reléguer ma procédure en fin de source.
La «Bizarrerie de débugage» n'est donc pas résolue.
J'ai supprimé le paramètre Out et déclaré Nx et Ny public mais rien n'y change. Ce n'est donc pas le paramètre «out» qui en est la cause.

[LadyWasky]

z'êtes tous à coté de la plaque les amis (jipété, Pedro,...)

Bon, c'est normal !

c'est souvent la présence d'un caractère invisible (non imprimable) dans le fichier.pas, et l'EDI en perd son Latin. En général, c'est du à un copié collé d'un code sur le Web vers la fenêtre d'édition, un formatage du passage à la ligne dans le fichier texte .pas avec #13 ou #10 seulement au lieu de #13#10...

La seule chose à faire c'est d'insérer une erreur volontaire du style grblzeesf (incompréhensible pour Delphi) et la déplacer du bas du fichier pas, vers le haut afin de déterminer où se trouve le caractère fautif (en général situé en fin de ligne).

Et là, il s'agit de supprimer le retour à la ligne entre 2 portions de code et de remettre le retour à la ligne.

voilà, voilà...

[defluc]

Waskol à te lire, je n'y croyais pas parce que ma source ne provient pas d'un copier/coller. Je l'ai tapée dans l'Edi.

Mais tu as vu juste.
Pourtant,

La seule chose à faire c'est d'insérer une erreur volontaire du style grblzeesf (incompréhensible pour Delphi) et la déplacer du bas du fichier pas, vers le haut afin de déterminer où se trouve le caractère fautif (en général situé en fin de ligne).

ça ne marche pas. La ligne qui se met en surbrillance est aléatoire et en tout cas pas celle où est située l'erreur.

Alors, j'ai copié la source dans le bloc-notes et là j'ai vu toute la source sur une seule ligne avec un petit rectangle vertical à la place des renvois à la ligne. Puis, j'ai recopié le tout dans l'EDI.
Plus de problème.

Merci à toi

[LadyWasky]

Waskol à te lire, je n'y croyais pas parce que ma source ne provient pas d'un copier/coller.

oui, c'était un exemple... Mais par contre, le coup du caractère parasite.... c'est un grand classique.

C'est le genre de truc qui m'arrive souvent avec Delphi 7, je ne compte plus le nombre de fois que ça m'est arrivé !!!
C'est agaçannnnnnnnt, hein ?

Pourtant, ça ne marche pas. La ligne qui se met en surbrillance est aléatoire et en tout cas pas celle où est située l'erreur.

Non, bien sur, toujours uune ligne avant, jusqu'à ce que tu mettes la ligne d'erreur avant le caractère parasite. Et là, toc.

Mais le coup du Bloc-note est bien vu

Merci à toi

De rien