Einzelnen Beitrag anzeigen

Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#14

AW: Brauche Hilfe mit Messagebox

  Alt 11. Mär 2013, 14:57
Delphi-Quellcode:
  
if edit3.Text = 'then
     begin
     if MessageBox(0, 'Eingabe erwartet', 'Fehler', MB_OK or MB_ICONERROR)= idok then exit
else

...
end;
Das ist aber jetzt doppelt gemoppelt. Bei entsprechender Logik brauchst Du kein Exit, wenn Du Exit verwendest, brauchst Du keinen Else-Zweig
Da nach dem else kein begin..end folgt, ist das exit durchaus notwendig, da sonst alle Anweisungen nach else ...; ausgefürt werden.



Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat