Delphi справочник - Форум программистов - Навигация  
 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      По первой букве  
System     SysUtils     StrUtils     DateUtils     FileCtrl     ConvUtils     StdConvs     Math     Classes     Dialogs     Types     Variants    ПО Unit   Compiler directives     Directives     Keywords     Types     Variables     Constants     Functions     Procedures    По категории  


Основы Delphi
Pred
Функция
Уменьшает порядковую переменную System unit
  function Pred ( const Ordinal Value ) : Ordinal type;
Описание
Функция 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
 



© Форум Delphi   |  Блог программистов   |  Создание и продвижение сайтов - "Веб сателлит"  |  Ссылки   |  Английская версия