home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / MEMCMP.ZIP / TMEMCOMP.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1988-05-11  |  864 b   |  26 lines
  1. {$R-,S-}
  2. program CompTest;
  3. uses MemComp;
  4.  
  5. type
  6.   Tipe = array[1..128] of byte;
  7.  
  8. var
  9.   Var1,Var2 : Tipe;
  10.   I,CompRes : Word;
  11.  
  12. begin
  13.   FillChar(var2,SizeOf(Tipe),0); { init Var2 to all zeros }
  14.   for I := 1 to 128  do          { set var1 = 1 2 3 4 5 ... 128 }
  15.     Var1[I] := I;
  16.   CompRes := CompMem(Var1,Var2,128); { compare, should return first }
  17.                                      { byte as non match }
  18.   WriteLn('While not equal, CompMem = ',CompRes); { show results }
  19.   Var2 := Var1;                  { make them equal }
  20.   CompRes := CompMem(Var1,Var2,128); { test again, should return 0 }
  21.   WriteLn('While equal, CompMem = ',CompRes);
  22.   Var2[128] := 0;                    { make all equal except last byte }
  23.   CompRes := CompMem(Var1,Var2,128); { test again, should return 128 }
  24.   WriteLn('While not equal, CompMem = ',CompRes);
  25. end.
  26.