Господа, как всё-таки правильно?

← →
Ega23 © (2004-08-16 10:34) [0]

Тут несколько раз за последнее время проскакивал вопрос, даже ответы на него читал, но так и не запомнил. А тут пришлось старую систему классов перетрясать, вот вспомнилось.

Так вот, как провильно:
if (Controls[i] is TButton) then (Controls[i] as TButton)....
или
if (Controls[i] is TButton) then TButton(Controls[i]).... ?

← →
pasha_golub © (2004-08-16 10:37) [1]

А по-моему, результат один. Я лично пользуюсь вторым методом. Но это, ИМХО, дело вкуса.

← →
Гаврила © (2004-08-16 10:39) [2]

> if (Controls[i] is TButton) then
> (Controls[i] as TButton)....

Это тоже самое, что и
if (Controls[i] is TButton) then
if (Controls[i] is TButton) then
(TButton(Controls[i]) else raise...

← →
Ega23 © (2004-08-16 10:41) [3]

Понял.

← →
Labert © (2004-08-16 10:42) [4]

The as operator performs checked typecasts. The expression

object as class

returns a reference to the same object as object, but with the type given by class. At runtime, object must be an instance of the class denoted by class or one of its descendants, or be nil; otherwise an exception is raised.

← →
Anatoly Podgoretsky © (2004-08-16 10:46) [5]

Оба варианта правильные, второй чуть быстрее.

Всем спасибо!

Правильно так:

(Controls[i] as TButton)...

или

if (Controls[i] is TButton) then TButton(Controls[i])....

В первом варианте при проверке выскочит Exception (можно использовать try), во втором просто в IF попадет ложь и операторы if"а не выполнятся...

Господа, как всё-таки правильно? Найти похожие ветки