Discussion :

[Lung]

Question existentielle :
- Quel est l'intérêt et l'utilité de la procédure ASSERT ?

J'ai lu l'aide de Delphi, mais je ne vois toujours pas à quoi elle peut bien servir.
Quelqu'un peut-il m'éclairer ...

Merci.

[Laurent Dardenne]

- Quel est l'intérêt et l'utilité de la procédure ASSERT ?

Cela permet de valider des conditions particuliéres nécessaires à un traitement, en qq sorte de s'assurer de prérequis.
Elles peuvent être dévalidées à la compilation par une directive.

Dans le code suivant je m'assure que l'appel à la méthode se fait bien avec un objet initialisé. Lors de la phase de développement c'est à mon avis trés utile.
Pour une version de production cela permet de remonter des erreurs de conception ou des cas non prévu au lieu d'un crash.

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
 
{*------------------------------------------------------------------------------
  Prépare et ouvre une requête SQL
  @param AQuery   Nom du composant TADOQuery utilisé
  @param AInstructionSQL   Requête SQL à exécuter
------------------------------------------------------------------------------*}
procedure TdmPrincipal.NouvelleInstructionSQL(AQuery : TADOQuery; AInstructionSQL :String);
begin
  Assert(AQuery<>Nil,'L''objet requête n''est pas initialisée.');
  Assert(AInstructionSQL <>'','La requête SQL est vide.');
  With AQuery do
  begin
   DisableControls;
   Close;
   SQL.Clear;
   SQL.Add(AInstructionSQL);
   Open;
   EnableControls;
  end;
end;

Pour plus de détails voir : http://smeric.developpez.com/java/astuces/assertions/
et aussi
http://fr.wikipedia.org/wiki/Programmation_par_contrat
et enfin ce post à propos de Chrome:
http://www.developpez.net/forums/sho...62&postcount=4

[Lung]

Et quelle est la différence avec un if avec un raise, ou un try ... except, ... ?

[Laurent Dardenne]

Et quelle est la différence avec un if avec un raise, ou un try ... except, ... ?

Présenté comme ça, aucune si ce n'est une concision d'écriture.
La directive suivante

{$C+} ou {$C-} {$ASSERTIONS ON} ou {$ASSERTIONS OFF}

permet de les gérer lors de la compilation sans ajout de bloc conditionnel du type :

Code :

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

1
2
3
4
 
      {$IFDEF DEBUG}
           if Query <> nil then raise Exception.Create('Query à nil');
      {$ENDIF}

Ce n'est qu'une partie de la programmation par contrat, du peu que j'en connaisse.
Elles permettent aussi de documenter ton code et de faciliter les tests.

[Lung]

D'accord.
Je vois mieux.