home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / listings / v_02_03 / 2n03024a < prev    next >
Text File  |  1991-01-11  |  378b  |  24 lines
  1.  
  2.  
  3. {*
  4.  * The Standard C library function memcmp implemented
  5.  * in Pascal.
  6.  *}
  7.  function memcmp(var s1, s2; n : word) : integer;
  8.     type
  9.         bytes = array [0 .. 65534] of byte;
  10.      var
  11.         i : word;
  12.         cmp : integer;
  13.     begin
  14.     cmp := 0;
  15.     i := 0;
  16.     while (i < n) and (cmp = 0) do
  17.         begin
  18.         cmp := bytes(s1)[i] - bytes(s2)[i];
  19.         i := i + 1;
  20.         end;
  21.     memcmp := cmp;
  22.     end;
  23.  
  24.