L'instruction If-Then-Else dans le code Delphi

Dans Delphi, l'instruction if est utilisée pour tester une condition, puis exécuter des sections de code selon que cette condition est vraie ou fausse.

Une instruction générale if-then-else ressemble à ceci:

 si  ensuite  autre ;

Le "vrai bloc" et le "faux bloc" peuvent être soit une simple instruction soit une instruction structurée (entourée d'une paire début-fin).

Exemple d'une instruction imbriquée If-Then-Else

Prenons un exemple utilisant des instructions if imbriquées:

 j: = 50;
si j> = 0 ensuite
  si j = 100 ensuite Légende: = 'Le nombre est 100!'autre
  Légende: = 'Le nombre est NÉGATIF!'; V

Quelle sera la valeur de "Cation"? Réponse: "'Le numéro est NÉGATIF!" Je ne m'attendais pas à ce que?

Notez que le compilateur ne prend pas en compte votre formatage, vous auriez pu écrire ce qui précède comme:

 j: = 50;
si j> = 0 puis si j = 100 ensuite Légende: = 'Le nombre est 100!'autre
Légende: = 'Le nombre est NÉGATIF!'; V

ou même comme (tout en une seule ligne):

 j: = 50; si j> = 0 ensuite si j = 100 ensuite Légende: = 'Le nombre est 100!'autre
Légende: = 'Le nombre est NÉGATIF!'; V

Le ";" marque la fin d'une déclaration.

Le compilateur lira la déclaration ci-dessus comme:

 j: = 50;
si j> = 0 ensuite
  si j = 100 ensuite
    Légende: = 'Le nombre est 100!'
  autre
    Légende: = 'Le nombre est NÉGATIF!';

ou pour être plus précis:

 j: = 50;
si j> = 0 ensuitecommencer
  si j = 100 ensuite
    Légende: = 'Le nombre est 100!'
  autre
    Légende: = 'Le nombre est NÉGATIF!';
fin;