Справочник функций и процедур 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;

Delphi Sources

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


Последние добавленные на сайт исходники

DeLiKaTeS Tetris (Тетрис)

TDictionary Custom Sort

Fast Watermark Sources

3D Designer

Sik Screen Capture

Patch Maker

 

Айболит (remote control)

ListBox Drag & Drop

Доска для игры Реверси

Графические эффекты

Рисование по маске

Перетаскивание изображений

 

Copyright © 2004-2024 "Delphi Sources" by BrokenByte Software (источник – "DelphiBasics")

Группа ВКонтакте