Sum Находит сумму элементов массива, состоящего из чисел с плавающей точкой
Пример кода : Увеличение символов, чисел и перечислений
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;
Символ: A
Символ + 1: B
Число: 23
Число + 5: 28
Карта начинается с Крести
Карта сейчас Пики
