Section courante

A propos

Section administrative du site

IF

Si
Delphi/Kylix/Lazarus

Syntaxe

If exp_bool Then inst1;
If exp_bool Then inst1 else Inst2;

Paramètres

Nom Description
exp_bool Ce paramètre permet d'indiquer une expression booléen devant être vrai
inst1 Ce paramètre permet d'indiquer l'instruction exécuté si la condition est vrai
Inst2 Ce paramètre permet d'indiquer l'instruction exécuté si la condition est fausse

Description

Ce mot réservé permet d'effectuer des branchements d'instruction ou de bloc d'instruction en fonction de certaines conditions.

Exemples

Cet exemple permet de tester une condition vrai :

  1. Program IfSamples;
  2.  
  3. {$APPTYPE CONSOLE}
  4. Uses SysUtils;
  5.      
  6. BEGIN
  7.  If True Then WriteLn('La condition est vrai');
  8. END.

on obtiendra le résultat suivant :

La condition est vrai

Ces exemples, en Delphi, permet de tester le mot réservé «IF» d'un peu toute les façons :

  1. Program IfSamples2;
  2.  
  3. {$APPTYPE CONSOLE}
  4. Uses SysUtils;
  5.      
  6. BEGIN
  7.  If False Then WriteLn('FALSE');
  8.  If Not False Then WriteLn('NOT FALSE');
  9.  If True Then WriteLn('TRUE');
  10.  If Not True Then WriteLn('NOT TRUE');
  11.  If Boolean(0)Then WriteLn('0');
  12.  If Boolean(NOT 0)Then WriteLn('NOT 0');
  13.  If Not Boolean(0)Then WriteLn('NOT(0)');
  14.  If Boolean(1)Then WriteLn('1');
  15.  If Boolean(NOT 1)Then WriteLn('NOT 1');
  16.  If Not Boolean(1)Then WriteLn('NOT(1)');
  17.  If 100 > 300 Then WriteLn('100 > 300');
  18.  If Boolean(1-Byte(100 > 300))Then WriteLn('1-(100 > 300)');
  19. END.

on obtiendra le résultat suivant :

NOT FALSE
TRUE
NOT 0
NOT(0)
1
NOT 1
1-(100 > 300)

Voir également

Langage de programmation - Delphi/Kylix/Lazarus - Type de données élémentaires - Boolean
Langage de programmation - Delphi/Kylix/Lazarus - Références de mots réservés (mots clefs) - End

Dernière mise à jour : Mercredi, le 18 février 2015