home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Workbench / Fonts / OUTLINE / P.LHA / prvw13 / WFPLUS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-06-03  |  1.1 KB  |  36 lines
  1. {WFPLUS - Function Extensions to ObjectWindows Copyright (C) Doug Overmyer 7/1/91}
  2. unit WFPlus;
  3.  
  4.  
  5. {******************************************************************}
  6. { I N T E R F A C E                                                        }
  7. {******************************************************************}
  8. interface
  9. uses WinTypes, WinProcs, WinDos, Strings, WObjects,StdDlgs;
  10. function Max(I,J:Integer):Integer;
  11. function Min(I,J:Integer):Integer;
  12. {********************************************************************}
  13. {I M P L E M E N T A T I O N                                                     }
  14. {********************************************************************}
  15. implementation
  16.  
  17. {***********************************************************************}
  18. function Max(I,J:Integer):Integer;
  19. begin
  20.     if I > J then
  21.        Max := I
  22.    else
  23.        Max := J;
  24. end;
  25. {***********************************************************************}
  26. function Min(I,J:Integer):Integer;
  27. begin
  28.     if I < J then
  29.        Min := I
  30.    else
  31.        Min := J;
  32. end;
  33.  
  34.  
  35. end.
  36.