Discussion :

[sys1]

J'aimerais intercepter proprement une exception, et pour cela, j'ai fait :

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
.Cellule := Mafeuille.getCellByPosition(1,113);
          erreur:=False;
          try
            StrToTime(chaine);
            except
          on EConvertError do
            erreur:=True;
          end;
          if erreur=False then
          begin
          Cellule.SetString(TimeToStr(Time()+StrToTime(chaine)));
          Cellule := Mafeuille.getCellByPosition(1,114);
          Cellule.SetString(u);
          affiche_6(119);
          resultat:=1;

Mon but est d'éventuellement intercepter l'erreur que peut renvoyer StrToTime(chaine)... Mon problème est que la boîte du dialogue avec l'erreur apparaît à l'exécution même avec le try...except... end;
Le but est que le programme fonctionne sans que l'utilisateur s'aperçoive qu'il y a eu une erreur.

[seabs]

Bonjour,

J'ai développé ce code pour vérifier la première partie

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  Erreur: Boolean;
begin
  try
    StrToTime('15/12:18');
  except
    on EConvertError do
      Erreur:=True;
  end;
  if Erreur then ;
end;

Cette partie de programme fonctionne parfaitement. L'erreur doit donc se situer dans la deuxième partie.

Code :

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

1
2
3
4
5
6
7
if erreur=False then
begin
Cellule.SetString(TimeToStr(Time()+StrToTime(chaine)));
Cellule := Mafeuille.getCellByPosition(1,114);
Cellule.SetString(u);
affiche_6(119);
resultat:=1;

Là, je peux pas tester sans connaître le composant utilisé. Mais avec le débogage, il doit être facile de trouver la ligne en cause.

Code :

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

Cellule.SetString(TimeToStr(Time()+StrToTime(chaine)));

D'ailleurs, le code ci-dessus me paraît bizarre, car tu inclus des données chaîne "TimeToStr" avec des données valeurs "StrToTime". J'ai fait aucun test, mais il y a lieu de vérifier.

Bon courage

[sys1]

Merci pour la réponse.

[tourlourou]

à mon avis, sauf cas particulier, l'idée des blocs try except est plutôt de gérer comme ceci, si ton extrait de code est bien fidèle à ton 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
14
15
16
.Cellule := Mafeuille.getCellByPosition(1,113);
          try
            aTime:=StrToTime(chaine);
            Cellule.SetString(aTime); 
            resultat:=1;
          except
            on EConvertError do
            begin
              // ici le traitement par défaut en cas d'erreur
              Cellule.SetString(TimeToStr( Time() );
              resultat:=0; // si tu as besoin de différencier par la suite ; sinon1
            end;
          end;
          Cellule := Mafeuille.getCellByPosition(1,114);
          Cellule.SetString(u);
          affiche_6(119);

[cincap]

Bonjour à toutes et à tous,

@ Tourlourou, dans ce cas, ce code ne gère pas l'exception car si l'image demandée "Fichier.bmp" n'existe pas, le code ne continue pas alors qu'il le devrait,

Question faut t'il aussi implanter une gestion d'exception :

Code :

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

1
2
3
4
5
6
7
8
9
 
 if not fileexists('C:\Data\Fichier.bmp') then begin
 image8.Picture.Bitmap.LoadFromResourceName(hinstance, 'logo');
 image4.Picture.Bitmap.LoadFromResourceName(hinstance, 'logo');
 end
 else begin
 image8.Picture.loadfromfile('C:\Data\Fichier.bmp');
 image4.Picture.loadfromfile('C:\Data\Fichier.bmp');
 end;

@+,

Cincap

[tourlourou]

en fait, pour le problème posé, la solution pourrait être :

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
.Cellule := Mafeuille.getCellByPosition(1,113);
          try
            aTime:=StrToTime(chaine);
            resultat:=1;
          except
            on EConvertError do
            begin
              aTime:=Time();
              resultat:=0; // si tu as besoin de différencier par la suite ; sinon 1
            end;
          end;
          Cellule.SetString( TimeToStr( aTime) ); 
          Cellule := Mafeuille.getCellByPosition(1,114);
          Cellule.SetString(u);
          affiche_6(119);

@cincap : quelle est l'erreur, si le code s'arrête ? ton code semble pourtant bien gérer la présence du bmp... le hinstance est-il juste ?

[cincap]

@ Tourlourou, en effet, le reste du code devrait fonctionner mais en fait sous Seven 64bits certains dossiers sont protégés et forcément généré une exception.

Le code proposé est un exemple sauf que le chemin proposé est accessible !

Sinon tout est ok.

@+,

Cincap

[tourlourou]

Hi Hi, voici des soucis qui m'échappent : je ne suis pas à la pointe de la technologie avec Delphi 5 Pro sous Windows 98 Première Edition...

Cela dit, autant utiliser des fonctions API qui renvoient les dossiers APPDATA ou autres, et ne pas se disperser pour les fichiers...