Om-då-annat uttalandet i Delphi-koden

I Delphi används if-satsen för att testa för ett villkor och sedan köra delar av kod baserat på om det villkoret är sant eller falskt.

Ett generellt uttalande om-då-annars ser så här ut:

 om  sedan  annan ;

Både det "sanna blocket" och det "falska blocket" kan antingen vara ett enkelt uttalande eller ett strukturerat uttalande (omgiven av ett start-slutpar).

Exempel på en kapslad om-då-annat uttalande

Låt oss överväga ett exempel med kapslade om uttalanden:

 j: = 50;
om j> = 0 sedan
  om j = 100 sedan Bildtext: = 'Antalet är 100!'annan
  Bildtext: = 'Antalet är NEGATIVT!'; V

Vad är värdet på "Cation"? Svar: "'Antalet är NEGATIVT!" Förväntade inte det?

Observera att kompilatorn inte tar hänsyn till din formatering, du kan ha skrivit ovan som:

 j: = 50;
om j> = 0 thenif j = 100 sedan Bildtext: = 'Antalet är 100!'annan
Bildtext: = 'Antalet är NEGATIVT!'; V

eller till och med som (allt i en rad):

 j: = 50; om j> = 0 sedan om j = 100 sedan Bildtext: = 'Antalet är 100!'annan
Bildtext: = 'Antalet är NEGATIVT!'; V

";" markerar slutet på ett uttalande.

Kompilatorn läser ovanstående uttalande som:

 j: = 50;
om j> = 0 sedan
  om j = 100 sedan
    Bildtext: = 'Antalet är 100!'
  annan
    Bildtext: = 'Antalet är NEGATIVT!';

eller för att vara mer exakt:

 j: = 50;
om j> = 0 sedanBörja
  om j = 100 sedan
    Bildtext: = 'Antalet är 100!'
  annan
    Bildtext: = 'Antalet är NEGATIVT!';
slutet;