home *** CD-ROM | disk | FTP | other *** search
/ Freelog 22 / freelog 22.iso / Prog / Djgpp / GPC2952B.ZIP / doc / gpc / docdemos / inlinedemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-02-09  |  198 b   |  14 lines
  1. program InlineDemo;
  2.  
  3. inline function Max (x, y : Integer) : Integer;
  4. begin
  5.   if x > y then
  6.     Max := x
  7.   else
  8.     Max := y
  9. end;
  10.  
  11. begin
  12.   WriteLn (Max (42, 17), ' ', Max (-4, -2))
  13. end.
  14.