Eigenen Record/Type erstellen

[Aike]

Hallöchen,

ich hab schon lange nichts mehr hier posten müssen, aber jetzt habe ich mich an etwas neues gewagt: Die Records.
Und zwar möchte ich in einer Funktion einen Aufruf, der so aussieht:

Delphi-Quellcode:

type 
  TMeinMathe; record
    Rechenvorschrift: (Plus,Minus);
  end;

function AddierenSubtrahieren(Zahl1,Zahl2:integer;Rechenvorschrift:TMeinMathe):integer;
begin
  if Rechenvorschrift=Plus then
    result:=Zahl1+Zahl2;
  if Rechenvorschrift=Minus then
    result:=Zahl1-Zahl2;
end;

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

So wie es in der showmessage steht, soll es aussiehen.
Das darüber ist die Art, wie ich es mir vorstelle, dass es aussehen muss, damit es klappt (tut es aber nicht).
Ich könnte es sicher auch mit Konstanten oder Variablen lösen, aber ich möchte das gerne mit einem Record (oder einem Type?) lösen, falls möglich.

Wie immer vielen Dank im voraus! :-)

Grüße,
Aike

[3_of_8]

Die Deklaration ist IMHO schon mal falsch.

Delphi-Quellcode:

type
  TMeinMathe=record
    Rechenvorschrift: (Plus,Minus);
  end;

[Aike]

Vertippt.

[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;

[Aike]

Ah, super. Danke!

Kannst du mir vielleicht noch kurz sagen, warum du "const" eingefügt hast?