Function Variable mit bestimmten Wert

[roboter202]

Hallo,

ich möchte gerne eine Function/Procdure erstellen der eine Variable übergeben wird, diese Variable nur bestimmte vorher festgelegte Werte haben darf.

Bsp :

Delphi-Quellcode:

function calc (val1,val2 :real ; sys :string) : real ; //sys darf nur addieren, subtrahieren ... sein  
begin

If sys = 'addieren' then ...

end;

procedure Button1.click (Sender : TObject) ;
begin
calc (17.6,18,addieren) ; 
end;

Ist das überhaupt möglich ?
Wenn ja wie !

Gruß
Christian

[mkinzler]

Dann definier dir am Besten einen Aufzählungstyp

[rollstuhlfahrer]

oder du wirfst eine Exception, wenn der Wert nicht richtig ist.

Bernhard