[SOLVED] how to ranslate this macro

[Key-Real]

how to ranslate this macro in pascal?

Code: Pascal  [Select][+][-]

1. #define limitRange(x, l, h)     ((x)=((x)<(l)?(l):(x)>(h)?(h):(x)))

[Fibonacci]

Code: Pascal  [Select][+][-]

1. procedure limitRange(var x: integer; l, h: integer); inline;
2. begin
3.   if x < l then x := l
4.   else if x > h then x := h;
5. end;

[Bart]

We have EnsureRange() in Math unit for that?

Bart