if funkion mit else zweig

[himitsu]

Wer braucht schon leere Else-Zweige?

Delphi-Quellcode:

procedure TForm1.pruefen1;
begin
  if Edit1.Text <> '0' then
    pruefen3
  else
    if (Edit2.Text = '0') and (Edit3.Text = '0') then
      pruefen2;
end;