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

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

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

  Реклама:

|  Детальная информация межкомнатные двери на нашем сайте.  |

Succ
Функция
Инкрементирует порядковую переменную StrUtils unit
  function Succ ( const Ordinal Value ) : Ordinal type;

Google  
 
Описание
Функция 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
 


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


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