Einzelnen Beitrag anzeigen

Bjoerk

Registriert seit: 28. Feb 2011
Ort: Mannheim
1.384 Beiträge
 
Delphi 10.4 Sydney
 
#11

AW: Eine Art umgekehrte Prozedur

  Alt 30. Mär 2015, 23:04
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.
  Mit Zitat antworten Zitat