Entwickler-Ecke :: Thema anzeigen - If Then else: problem mit Else bei 3er-Verschatelung

Metschu - So 21.09.08 17:08
Titel: If Then else: problem mit Else bei 3er-Verschatelung

Hallo zusammen!

Ich habe ein kleines Problem mit einer If then Else Anweisung:

Hier mal der Stark vereinfachte Quelltext:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

if checkbox.checked
 then
  if messagedlg('Soll Externes Programm strarten?'{...})=mryes
   then
    if shellexecute({...})<= 32  
     then
      showmessage('Fehler bei Shellexecute')
 else
  showmessage('Hinweis 1');

Die Else Anweisung bezieht sich nun ja logischerweise auf das "If Shellexecute".
Sie soll jedoch zu dem "If Checkbox" gehören.
Bekomme ich das irgendwie hin, ohne das hinter jedes "If" ein "else mach was sinnloses" einzufügen?

Vielen Dank schonmal.

Gausi - So 21.09.08 17:16

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

if checkbox.checked then 
begin
  if messagedlg('Soll Externes Programm strarten?'{...})=mryes then 
    if shellexecute({...})<= 32 then 
      showmessage('Fehler bei Shellexecute'); 
end
else 
  showmessage('Hinweis 1');

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!