Einzelnen Beitrag anzeigen

Aike

Registriert seit: 2. Okt 2004
319 Beiträge
 
#1

Eigenen Record/Type erstellen

  Alt 26. Jan 2006, 14:35
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
Achim
  Mit Zitat antworten Zitat