nur eine if-Schleife ausführen

[himitsu]

ich mach es immer so ... finde es so jedenfalls verständlicher

Delphi-Quellcode:

i := 0;
while i < C2.Items.Count do
begin
  if dieses then
  begin
    // Anweisung
    Break;
  end
  else if jenes then
  begin
    // Anweisung
    Break;
  end 
  Inc(i);
end;
if i = C2.Items.Count then
begin
  // Anweisung, wenn nichts zutraf
end;

(theoretisch könnte man auch das ELSE hier weglassen, da es vom Aufrufpfad her auf's Selbe rauskommt.