Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
FreePascal / Lazarus
|
AW: Brauche Hilfe mit Messagebox
11. Mär 2013, 15: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
|