Delphi-Help

Описание

function Pred ( const Ordinal Value ) : Ordinal type;

Функция Pred уменьшает значение порядковой переменной, и возвращает её значение.

Вы можете уменьшить:

Символы
Числа без плавающей запятой
Перечисляемые типы
Указатели

Уменьшение происходит в зависимости от размера элемента (единицы). Например, Pointer будет уменьшаться по 4 байта, если указатель указывает на Word.

Пример кода

type
TSuit = (Hearts, Clubs, Diamonds, Spades);

var
Character : char;
Number    : Integer;
Card      : TSuit;

begin
// Мы можем уменьшать символы
Character := 'B';

ShowMessage('Character : '+Character);
Character := Pred(Character);
ShowMessage('Character-1 : '+Character);

// Мы можем уменьшать числа
Number := 23;

ShowMessage('Number : '+IntToStr(Number));
Number := Pred(Number);
ShowMessage('Number-1 : '+IntToStr(Number));

// Мы можем уменьшать перечисления
Card := Clubs;

ShowMessage('Card starts at Clubs');
Card := Pred(Card);
if Card = Hearts then ShowMessage('Card is now Hearts');
if Card = Clubs then ShowMessage('Card is now Clubs');
if Card = Diamonds then ShowMessage('Card is now Diamonds');
if Card = Spades then ShowMessage('Card is now Spades');
end;

Character : B
Character-1 : A
Number : 23
Number-1 : 22
Card starts at Clubs
Card is now Hearts

Примечание

В работе Pred эквивалентен простому вычитанию, или процедуре Dec.