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
Succ
Функция
Инкрементирует порядковую переменную StrUtils unit
  function Succ ( const Ordinal Value ) : Ordinal type;
Описание
Функция Succ инкрементирует порядковое значение и возвращает его как результат.

Вы можете инкрементировать:

Символы
Невещественные числовые типы
Тип перечисления
Pointers Указатели

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

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

Pred  Уменьшает порядковую переменную

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

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

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

 
Пример кода : Увеличение символов, чисел и перечислений
type
  TSuit = (Hearts, Clubs, Diamonds, Spades);

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

begin
  // Мы можем увеличить символы
  Character := 'A';

  ShowMessage('Character : '+Character);
  Character := Succ(Character);
  ShowMessage('Character+1 : '+Character);

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

  ShowMessage('Number : '+IntToStr(Number));
  Number := Succ(Number);
  ShowMessage('Number+1 : '+IntToStr(Number));

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

  ShowMessage('Card начинается с Clubs');
  Card := Succ(Card);
  if Card = Hearts then ShowMessage('Card сейчас Hearts');
  if Card = Clubs then ShowMessage('Card сейчас Clubs');
  if Card = Diamonds then ShowMessage('Card сейчас Diamonds');
  if Card = Spades then ShowMessage('Card сейчас Spades');
end;
Character : A
Character+1 : B
Number : 23
Number+1 : 24
Card начинается Clubs
Card сейчас Diamonds
 



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