关系运算符有=(等于),<>(不等),<(小于),>(大于),<=(小于或等于),>=(大于或等于)。关系运算符可以对两个算术表达式或字符串进行比较,运算结果是布尔型。即如果关系式成立,则关系运算结果为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
本文版权归作者和博客园共有,欢迎转载,但未经作者同意必须保留此段声明,且在文章页面明显位置给出原文连接,包括文章,代码,图片等本站内所有资源,否则保留追究法律责任的权利。