Eigenen Record/Type erstellen

[Kroko1999]

Delphi-Quellcode:

type
  TMeineOp = (moPlus,moMinus);

function AddierenSubtrahieren(const Zahl1,Zahl2: Integer;const Rechenvorschrift:TMeineOp): Integer;
begin
  case Rechenvorschrift of
    opPlus: Result:=Zahl1+Zahl2;
    opMinus: Result:=Zahl1-Zahl2;
    else Result := 0;
  end;
end;

procedure TForm1.Button1OnClick(Sender: TObject);
begin
  showmessage(IntToStr(AddierenSubtrahieren(2,1,moPlus)));
end;