Правила форума
Typeof.PASЯзык:
Русский
English
{ Пример программы для функции TypeOf }
procedure GraphicalObject.Move;
begin
{ В зависимости от типа полученного значения, }
if TypeOf(Self) = TypeOf(ScrWindow) then
{ выполняем специальное действие, если перемещаем окно, или }
else
{ если нет, то другое действие }
end;
begin
{ В зависимости от типа полученного значения, }
if TypeOf(Self) = TypeOf(ScrWindow) then
{ выполняем специальное действие, если перемещаем окно, или }
else
{ если нет, то другое действие }
end;
::
::
::
