home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / arrays / generics / maxarray / srtfuncs.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-07-23  |  968 b   |  52 lines
  1. Unit SrtFuncs; {Introduces some sample SortFuncs for use with GenHeaps
  2.                 of the MaxArray variety.}
  3.  
  4. INTERFACE
  5. Uses FlexPntr;
  6.  
  7. Type
  8.   SortFunc = Function (Var El1,El2) : Boolean;
  9.  
  10.              { SortFuncs *MUST* be defined so that they return the }
  11.              { truth value of the statement El1 > El2 }
  12.  
  13. Var
  14.   SortReal,SortInteger {SortRecord} : SortFunc;
  15.  
  16. IMPLEMENTATION
  17. {$F+}
  18.  
  19. Function SortR (Var El1,El2) : Boolean;
  20. Var
  21.   T1 : Real Absolute El1;
  22.   T2 : Real Absolute El2;
  23. Begin
  24.   SortR := T1 > T2
  25. End;
  26.  
  27. Function SortI (Var El1,El2) : Boolean;
  28. Var
  29.   T1 : Integer Absolute El1;
  30.   T2 : Integer Absolute El2;
  31. Begin
  32.   SortI := T1 > T2
  33. End;
  34.  
  35. {
  36. Function SortRec (Var El1,El2) : Boolean;
  37. Var
  38.   T1 : RecordType Absolute El1;
  39.   T2 : RecordType Absolute El2;
  40. Begin
  41.   SortRec := T1.DesiredField > T2.DesiredField
  42. End;
  43. }
  44.  
  45. {$F-}
  46. BEGIN
  47.   SortReal := SortR;
  48.   SortInteger := SortI;
  49.  
  50.   {SortRecord := SortRec}
  51.  
  52. END.