1 procedure Inc ( var Variable : Ordinal variable ) ; 2 procedure Inc ( var Variable : Ordinal variable; Count : Integer ) ;
Процедура Inc увеличивает, порядковую переменную переданную ему. Вы можете увеличить: Символы Числа без плавающей запятой Перечисляемые типы Указатели Версия 1: Inc увеличивает на 1 единицу. Версия 2: Inc увеличивает на Count единиц.
|
type TSuit = (Hearts, Clubs, Diamonds, Spades); var Character : char; Number : Integer; Card : TSuit; begin // Мы можем приращивать символы Character := 'A'; ShowMessage('Символ : '+Character); Inc(Character); ShowMessage('Символ+1 : '+Character); // Мы можем приращивать числа Number := 23; ShowMessage('Число : '+IntToStr(Number)); Inc(Number, 5); ShowMessage(Число+5 : '+IntToStr(Number)); // Мы можем приращивать перечисления Card := Clubs; ShowMessage('Card starts at Clubs'); Inc(Card); if Card = Hearts then ShowMessage('Карта сейчас Сердце'); if Card = Clubs then ShowMessage('Карта сейчас Крести'); if Card = Diamonds then ShowMessage('Карта сейчас Буби'); if Card = Spades then ShowMessage('Карта сейчас Пики'); end;
|