Тип Variant

← →
euru © (2004-09-17 13:47) [0]

type s: String; begin s := 1 + 1; // ошибка s := 1 + Variant(1); // работает end.

← →
DiamondShark © (2004-09-17 13:54) [1]

Тяжёлое наследие VB?

← →
КаПиБаРа © (2004-09-17 13:56) [2]

s := 1 + Variant(1) + 66; // Тоже работает
==================================================== Мы являемся свидетелями процессов определённого типа только потому, что процессы иного типа протекают без свидетелей. (А.Зельманов) ====================================================

← →
КаПиБаРа © (2004-09-17 13:58) [3]

КаПиБаРа © (17.09.04 13:56) [2]
s := 1 + Variant(1) + 66; // Тоже работает

s := 1 + Variant(1) + "66"; // Тоже работает
============================================== Меня часто преследуют умные мысли, но я всегда оказываюсь быстрее них! ==============================================

← →
euru © (2004-09-17 17:20) [4]

s := "1"; s := s + Variant(1); // работает
s := "s"; s := s + Variant(1); // не работает

http://www.citforum.ru/programming/delphi/miracles/
7-е чудо и 1-й фокус.

> s := 1 + Variant(1); // работает

По всей видимости сначала вычисляется 1 + variant(1), в результате чего получается нечто типа variant, и уже потом присвивается s с соответствующим преобразованием.

Тип Variant Найти похожие ветки