Überraschendes Verhalten im if-else if-Konstrukt

[mariusbenz]

Guten Morgen,

mir ist gerade etwas in einem if-else if Konstrukt aufgefallen, von dem ich der festen Überzeugung war, dass das geht.
Ich spare mir bei Schleifen und if-Abfragen gerne das begin-end wenn nur eine Anweisung kommt. Eine Anweisung kann dann auch bei Schleifen auch eine if-Abfrage + Anweisung sein.
Beispiel:

Delphi-Quellcode:

for I := 0 to 5 do
  // Eine Anweisung
  if I = 2 then
    ShowMessage('I = 2');

Bei folgendem Konstrukt geht das ganze dann aber schief:

Delphi-Quellcode:

if Form1.Caption = 'ksjhdgk' then
  ShowMessage('1')
else if Form1.Caption = 'fgjfstj' then
  // eigentlich ja auch eine Anweisung
  if Button1.Caption = 'Button1' then
    ShowMessage('2')
else if Form1.Caption = 'Form1' then
  ShowMessage('3');

Nach dem ersten else if (welches false zurückgibt) geht es allerdings nicht weiter ins nächste else if.

Folgendes funktioniert dann wieder:

Delphi-Quellcode:

if Form1.Caption = 'ksjhdgk' then
  ShowMessage('1')
else if Form1.Caption = 'fgjfstj' then
  begin
    if Button1.Caption = 'Button1' then
      ShowMessage('2');
  end
else if Form1.Caption = 'Form1' then
  ShowMessage('3');

Mich wundert warum bei einer Schleife eine einfache if-Anweisung nicht in begin end gekapselt werden muss, in meinem Beispiel-Konstrukt allerdings schon.

[Neutral General]

Und was lernen wir daraus?

Wobei ich zugeben muss, dass ich das zu einem gewissen Grad auch mache. Aber nur wenn die Anweisungen nur eine simple (einzeilige) Zuweisung oder Methodenaufruf ist.
Sobald da ein mehrzeiliger Block hin soll mache ich ein begin/end drum, weil mir das auch sonst zu unübersichtlich ist, auch wenn es nur als eine Anweisung zählt und (in den meisten Fällen) so funktioniert.

Delphi-Quellcode:

if (x > y) then
  ShowMessage('X ist größer als Y!'); // Ja

if (x < y) then
  for i := x to y do
    ShowMessage('!');  // Nein!

[Klaus01]

.. das else bezieht sich immer auf das letzte if.
Wenn das nicht gewünscht ist musst Du mit begin end arbeiten, siehe letztes Beispiel.

Überraschend ist das Verhalten nicht.

Grüße
Klaus

[mariusbenz]

Zitat von Klaus01:

.. das else bezieht sich immer auf das letzte if.
Wenn das nicht gewünscht ist musst Du mit begin end arbeiten, siehe letztes Beispiel.

Überraschend ist das Verhalten nicht.

Grüße
Kalus

Ja, jetzt fühle ich mich dumm

[haentschman]

Zitat:

Ja, jetzt fühle ich mich dumm

...Blödsinn. Es sei denn du lernst nichts draus.

Ich persönlich mache immer ein begin/end. Da sehen die Linien (CnPack oder Castalia) besser aus...

[QuickAndDirty]

Zitat von mariusbenz:

Zitat von Klaus01:

.. das else bezieht sich immer auf das letzte if.
Wenn das nicht gewünscht ist musst Du mit begin end arbeiten, siehe letztes Beispiel.

Überraschend ist das Verhalten nicht.

Grüße
Kalus

Ja, jetzt fühle ich mich dumm

Ach das "pending else" war mal eine echte philosphisches Frage in der C-community...samt Kreuzzügen, Dogmen, Flamewars....&c.
Python hätte dank deiner Code formatierung die von dir intendierte logic auch umgesetzt...What you see is what you get...So lange du keine anderen Whitespaces als Leerzeichen verwendest...

Wärst du ein Arbeitskollege würde dieser Post trotzdem für immer mit deinem Namen verbunden bleiben...

[DieDolly]

Code ordentlich formatieren dann sieht man sowas auch sofort

Delphi-Quellcode:

 if Form1.Caption = 'ksjhdgk' then
  ShowMessage('1')
 else if Form1.Caption = 'fgjfstj' then
  // eigentlich ja auch eine Anweisung
  if Button1.Caption = 'Button1' then
   ShowMessage('2')
  else if Form1.Caption = 'Form1' then
   ShowMessage('3');

Oder mit 2 Leerstellen ist es noch besser sichtbar

Delphi-Quellcode:

 if Form1.Caption = 'ksjhdgk' then
   ShowMessage('1')
 else if Form1.Caption = 'fgjfstj' then
   // eigentlich ja auch eine Anweisung
   if Button1.Caption = 'Button1' then
     ShowMessage('2')
   else if Form1.Caption = 'Form1' then
     ShowMessage('3');

Und so ist es am besten lesbar finde ich und weniger anfällig für Fehler

Delphi-Quellcode:

 if Form1.Caption = 'ksjhdgk' then
  begin
   ShowMessage('1');
  end
 else if Form1.Caption = 'fgjfstj' then
  begin
   // eigentlich ja auch eine Anweisung
   if Button1.Caption = 'Button1' then
    begin
     ShowMessage('2');
    end
   else if Form1.Caption = 'Form1' then
    begin
     ShowMessage('3');
    end;
  end;

Entweder selber ordentlich und richtig formatieren oder STRG+D benutzen.

[Delphi.Narium]

Noch 'ne Variante:

Delphi-Quellcode:

     if Form1.Caption = 'ksjhdgk' then ShowMessage('1')
else if Form1.Caption = 'fgjfstj' then if Button1.Caption = 'Button1' then ShowMessage('2')
                                  else if Form1.Caption = 'Form1' then ShowMessage('3');

Ganz offensichtlich wird es als Einzeiler:
if Form1.Caption = 'k' then ShowMessage('1') else if Form1.Caption = 'f' then if Button1.Caption = 'Button1' then ShowMessage('2') else if Form1.Caption = 'Form1' then ShowMessage('3');

Und nein: Das ist kein guter Programmierstil.

Wer geschachtelte If-Then-Else-Konstrukte ohne Begin-End schreibt, sollte die implementierte Logik schon sehr gut abstrahieren können, sonst wird es sehr schnell sehr unübersichlich und extrem fehleranfällig.

Kurzer Code ist gut.
Übersichtlicher und verständlicher ist besser