Discussion :

[steph_1]

Bonjour à tous,
j'ai un program delphi qui appelle une dll delphi dans laquelle j'utilise un try-except.
Dans ce try-except je fais un StringToFloat. Lorsque cette commande plante, le except doit prendre la main.
Mon pb vient du fait que ceci marche très bien dans un programme, et lorsque j'essaie de le reporter dans mon programme : ça plante (le except ne prend pas la main).
Dans mon programme : les déclarations des fcts de la DLL delphi sont bonnes, les appels des fcts sont les mêmes que dans l'autre programme, les options de compil sont les mêmes...je ne comprends pas.
Qu'aurai-je pu oublier ?
Merci

[rsc]

Qu'aurai-je pu oublier ?
Merci

Peut-être de nous donner plus de détails ou la portion de code qui plante (s'il ne fait pas 500 lignes) parce que le genre de question : "J'ai tout bien fait, mais ça plante, pouvez-vous me dire pourquoi ?" est un peu difficile à répondre

[steph_1]

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
 
var
  CurentCtrl: TWinControl;
  m_temp:DWORD;
....
 
  try
            CurentCtrl:= m_Edit;
            m_temp
              := DWORD(Floor(StrToFloat(m_Edit.Text)*1000));
   except
    on E:Exception do
      begin
        DgrInvalidValue(E);
        CurentCtrl.SetFocus;
        Result:=FALSE;
      end;
  end;

Le pb vient du 'StrToFloat' lorsque la valeur est nulle, le except ne prend pas la main.

[rsc]

Et si tu supprimes le try et le bloc except, tu as bien l'erreur ?

[steph_1]

oui j'ai bien l'erreur, il plante sur le StrToFloat.

[rsc]

Et qu'est-ce qui te fait dire que le bloc except ne s'exécute pas ?
Si tu exécutes pas à pas, le programme n'y entre pas ?
Qu'est censé faire DgrInvalidValue ?

[steph_1]

DgrInvalidValue fait juste un MessageBox.
Le prog n'entre pas dans le except.
Il plante bien sur le StrToFloat lorsque je lui mets une chaîne vide à transformer en float.

[rsc]

Si :
1/ l'erreur se déclenche,
2/ le programme n'entre pas dans le bloc except alors que celui-ci devrait afficher un message,
je ne comprends pas. Désolé !

[ShaiLeTroll]

Peut-être qu'il serait plus juste d'utiliser une autre fonction de Delphi TryStrToFloat (à partir de D7, cela économise mémoire et temps processeur lié au déclenchement d'exception) qui est en fait appelé par StrToFloat et si elle renvoie false cela déclenche une exception, ...

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
var
  CurentCtrl: TWinControl;
  Value: Double;
  m_temp:DWORD; // attention aux valeurs hors limites !
....
 
   CurentCtrl:= m_Edit;
   Result := Assigned(m_Edit); 
   if Result then
   begin
     Result := TryStrToFloat(m_Edit.Text, Value);
     if Result then
        m_temp := DWORD(Floor((Value)*1000)) // voir le type Currency !
     else
       m_temp  := 0;
   end;
 
   if not Result then
   begin
      DgrInvalidValue(???);
      CurentCtrl.SetFocus;
   end; 
  end;