if funkion mit else zweig

[alzaimar]

Soll etwas passieren, wenn in edit2 oder edit3 etwas <> '0' steht?
Bei solchen If-then-else-Konstrukten würde ich auf das begin/end (hier verzichten), denn dann sieht man den leeren Else-Zweig sofort

Delphi-Quellcode:

procedure pruefen1;
begin
  if Form1.Edit1.Text = '0' then
    if (Form1.Edit2.Text = '0') and (Form1.Edit3.Text = '0') then
      pruefen2
    else 
      // Keine Prüfung, wenn Edit2.Text oder Edit3.Text <>'0' sind
  else
    pruefen3;
end;

.
Achtung! Wenn das so (also ohne begin end) geschrieben wird, dann müssen unbedingt alle else-Zweige angegeben werden, auch wenn sie leer sind.

Ich finde es so besser, weil man so automatisch alle Fälle abdeckt.