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