home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / das_buch / profiler / comp1.pas next >
Pascal/Delphi Source File  |  1993-05-03  |  1KB  |  51 lines
  1. (* ------------------------------------------------------ *)
  2. (*                      COMP1.PAS                         *)
  3. (*            (c) 1993 te-wi Verlag, München              *)
  4. (* ------------------------------------------------------ *)
  5. PROGRAM Compare_1;
  6.  
  7. {$A+,B-,D+,E+,F-,G-,I+,L+,N-,O-,P-,Q+,R+,S+,T-,V+,X+,Y+}
  8. {$M 16384,0,655360}
  9.  
  10. TYPE
  11.   Quality = (Lss, Gtr, Eql);
  12.  
  13.   FUNCTION Compare(s1, s2 : STRING) : Quality;
  14.  
  15.     FUNCTION UpStr(s1 : STRING) : STRING;
  16.     VAR
  17.       s : STRING;
  18.       i : INTEGER;
  19.     BEGIN
  20.       s := '';
  21.       FOR i := 1 TO Length(s1) DO
  22.         s := s + UpCase(s[i]);
  23.       UpStr := s;
  24.     END;
  25.  
  26.   BEGIN
  27.     IF UpStr(s1) = UpStr(s2) THEN
  28.       Compare := Eql
  29.     ELSE IF UpStr(s1) > UpStr(s2) THEN
  30.       Compare := Gtr
  31.     ELSE IF UpStr(s1) < UpStr(s2) THEN
  32.       Compare := Lss;
  33.   END;
  34.  
  35. CONST
  36.   s1 : STRING = 'begin';
  37.   s2 : STRING = 'abs';
  38.   s3 : STRING = 'compare';
  39.   s4 : STRING = 'zappenduster';
  40.  
  41. BEGIN
  42.   WriteLn(Ord(Compare(s1, s2)));
  43.   WriteLn(Ord(Compare(s4, s1)));
  44.   WriteLn(Ord(Compare(s4, s4)));
  45.   WriteLn(Ord(Compare(s3, s4)));
  46. END.
  47. (* ------------------------------------------------------ *)
  48. (*                  Ende von COMP1.PAS                    *)
  49.  
  50.  
  51.