Delphi关系运算符

关系运算符有=（等于），<>（不等），<（小于），>（大于），<=（小于或等于），>=（大于或等于）。关系运算符可以对两个算术表达式或字符串进行比较，运算结果是布尔型。即如果关系式成立，则关系运算结果为True；反之，关系运算结果为False。

【例3.4】

program Sample3_4;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.SysUtils;

var
  I, J, K: Integer;
  A: Real;
  S1, S2: String;
  C: Char;

begin
  try

    I := 2;
    J := 5;
    K := 3;
    A := 2.5;
    S1 := 'A3X5D';
    S2 := 'A869';
    C := 'B';

    Write('I=J:');
    Writeln(I = J);
    Write('I*J<>K:');
    Writeln(I * J <> K);
    Write('I<A:');
    Writeln(I < A);
    Write('S1>=S2:');
    Writeln(S1 >= S2);
    Write('S1<=C:');
    Writeln(S1 <= C);

    Readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;

end.

运算结果：

 

关系运算符>，<，>=和<=还适于对字符指针PChar型的变量进行比较。仅当两个指针指向同一字符串时，这种比较才有意义。

【例3.5】

program Samole3_5;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.SysUtils;

Var
  S: String;
  P1, P2, P3: PChar;

begin
  try
    S := 'ABCDAABB';
    P1 := ^S; { 使指针P1指向字符串S }
    P2 := P1 + 4;
    P3 := P1 + 6;

    Write('P1=P2:');
    Writeln(P1 = P2);
    Write('P1<=P3:');
    Writeln(P1 <= P3);
    Readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;

end.

运行结果：

作者：银月莲
出处：http://www.cnblogs.com/moonsilvering
本文版权归作者和博客园共有，欢迎转载，但未经作者同意必须保留此段声明，且在文章页面明显位置给出原文连接，包括文章，代码，图片等本站内所有资源，否则保留追究法律责任的权利。