Wenn eine if-bedingung zutrifft dann...

[Pseudemys Nelsoni]

hoi wie kann ich folgendes verbessern?

Delphi-Quellcode:

procedure proc;
var
  b: boolean;
begin
  if bedingung1 then
  begin
    anweisung;
    b := true;
  end;
  if bedingung2 then
  begin
    anweisung;
    b := true;
  end;
  if bedingung3 then
  begin
    anweisung;
    b := true;
  end;
  if bedingung4 then
  begin
    anweisung;
    b := true;
  end;
  if bedingung5 then
  begin
    anweisung;
    b := true;
  end;
  if not b then
  begin
    // hier gehts normal weiter
  end;
end;

wenn irgendeine dieser if abfragen zutrifft dann soll "b" true werden, muss ich das ich jeder abfrage drin haben? oder gibts ein "else" das sich auf ALLE vorigen if anweisungen bezieht? würde ich das "B:= true" nicht überall drin haben müssen, würde meine procedur schon viel kleiner und übersichtlicher werden, ca so:

Delphi-Quellcode:

procedure proc;
var
  b: boolean;
begin
  if bedingung1 then
  anweisung;
  if bedingung2 then
  anweisung;
  if bedingung3 then
  anweisung;
  if bedingung4 then
  anweisung;
  if bedingung5 then
  anweisung;
  else b := false // ??
  if not b then
  begin
    // hier gehts normal weiter
  end;
end;

ich könnte mir die ganzen begin..end's sparen


jemand ne idee?

wäre "else if" ne lösung?