Discussion :

[guillemouze]

Salut à tous, j'ai un probleme avec l'evaluateur de Delphi, lorsque j'appele une procedure avec le retour d'une fonction en parametre.
Je m'explique:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
interface
 
procedure Dbg(const APoint: TPoint);
 
const ptNul: TPoint = (X:0; Y:0);
 
implementation
 
procedure Dbg(const APoint: TPoint);
begin
  OutputDebugString(PChar(format('%d, %d', [APoint.X, APoint.Y])));
end;

Avec ce code, lorsque sur un point d'arret, j'evalue Dbg avec une constante ou une varaible en parametre, ca fonctionne tres bien. Par contre, si j'utilise un appel a une autre fonction pour obtenir le parametre, ca ne marche pas :

Code :

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

1
2
3
 
Dbg(ptNul) //bien évalué
Dbg(Point(1,1)) //affichage d'une violation d'accès dans la partie "résultat" de l'evaluateur

Autre chose bizare, lorsque j'enleve le const du parametre APoint, l'evaluateur ne m'affiche plus la violation d'acces, il ne m'affiche rien (alors que si ca se passe bien il affiche "(Aucun résultat)") , et ne fait pas non plus le traitement.

Avez vous une idée de ce que je pourrai faire pour que cela fonctionne ?

[ShaiLeTroll]

Que veux-tu dire avec "ne fait pas non plus le traitement" ?

[guillemouze]

je veux dire par là qu'il n'effectue pas le code de la fonction Dbg (pas de OutputDebugString quoi)

Code :

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

1
2
3
 
procedure Dbg(const APoint: TPoint); //Aucune action. Résultat de l'evaluateur:'Violation d'acces ...'
procedure Dbg(      APoint: TPoint); //Aucune action. Résultat de l'evaluateur:''

[ShaiLeTroll]

Cela fonctionne parfaitement chez moi !
avec const, je n'ai pas de violation d'accès !

[guillemouze]

ah bah mince alors. Et tu es bien sous Delphi7 ?
tu evalue a quel moment.
Moi j'ai fait une form de test, un bouton avec un sleep(0) dans le onclick et un point d'arret dessus.

Ca vient peut etre de ma methode pour que la fonction ne sois pas eliminée par le lieur. Dans la partie initialization, j'ai mis une "if isZero(5) then Dbg(ptNul);"

C'est peut etre un peu debile comme suppositions, mais je ne vois pas comment ca se fait que ca marche chez toi et pas chez moi !!!

[ShaiLeTroll]

J'ai bien D7
J'ai vite fait tester dans le projet que je maintiens, dans le click d'une action (que je développais au moment de ma réponse)
L'évaluateur me mets "valeur indisponible" si j'essaye d'évaluer "Point(1,1)" en le surlignant, mais ça fonctionne par F7

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
const ptNul: TPoint = (X:0; Y:0);
 
procedure Dbg(const APoint: TPoint);
begin
  OutputDebugString(PChar(format('%d, %d', [APoint.X, APoint.Y]))); //bien évalué
end;
 
procedure Dbg2(APoint: TPoint);
begin
  OutputDebugString(PChar(format('%d, %d', [APoint.X, APoint.Y]))); //bien évalué
end;
 
 
procedure TfMain.Act***Execute(Sender: TObject);
begin
Dbg(ptNul); //bien évalué
Dbg(Point(1,1)); // valeur indisponible par surlignement mais Ok par F7
 
Dbg2(ptNul); //bien évalué
Dbg2(Point(1,1)); // valeur indisponible par surlignement mais Ok par F7
 
  // T***.Execute();
end;