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
