Справочник функций и процедур Delphi: Pred

  Навигация по первой букве:

A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z

  Навигация по категории:

Compiler directives, Directives, Keywords / Types, Variables, Constants / Functions, Procedures

  Реклама:

|  Магазин Техно Еж поставляет MacBook Air 11 от Apple в Украину.  |

Pred
Функция
Уменьшает порядковую переменную System unit
  function Pred ( const Ordinal Value ) : Ordinal type;

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

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

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

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

Inc  Увеличивает порядковую переменную

Sqr  Возвращает квадрат числа

Sqrt  Возвращает квадратный корень числа

Succ  Инкрементирует порядковую переменную

Sum  Находит сумму элементов массива, состоящего из чисел с плавающей точкой

 
Пример кода : Уменьшение символов, чисел и перечислений
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
 


Copyright © 2004-2016 Delphi Sources (источник – "DelphiBasics.ru")
 


Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook