Eine Art umgekehrte Prozedur

[Bjoerk]

Wie wärs mit einem Flag?

Delphi-Quellcode:

TMachWasFlag = (mwfNone, mwfDoSomething, mwfDoSomethingElse, ..);

function MachWas( .. ; Flag: TMachWasFlag): Integer;
begin
  Result := 10; //Stellvertretend für viel Code
  case Flag of
    mwfDoSomething:
      Result := DoSomething(..);
    mwfDoSomethingElse:
      Result := DoSomethingElse(..);
    ..
  else
    Result := ..
  end;
  Result := Result * 10; //Stellvertretend für viel Code
end;

Falls Die Liste der Parameter sehr unterschiedlich ist, ist dieses Design aber nicht zu empfehlen.