Pred函数 - Borland Delphi 开发工作者手册

返回介绍

Pred函数

发布于 2019-08-04 字数 566 浏览 1261 评论 0

System

Function Pred (X);

Pred 返回变元的前驱。 X是一个顺序类型的表达式,结果是X的前驱,并与X是同一类型的。 如果属性使用了一个写操作,不能在顺序类型的属性上使用Pred作用。

uses Dialogs;

type

Color=(RED,BLUE,GREEN);

var

S:string;

begin

S:=’The predecessorof 5 is ‘+IntToStr(Pred(5))+#13#10;

S:=S+’The successor of 10 is ‘+IntToStr(succ(10))+#13#10;

If Succ(RED)=BLUE then

S:=S+’in the type Colors,Red si the predecessorof Blue.’;

Message(S,mtInformation,[mbOk],0);

end;

上一篇:Pos函数

下一篇:presentValue函数

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。

支持 Markdown 语法,需要帮助?

目前还没有任何评论,快来抢沙发吧!