IPB

> Typeof.PAS
Чат
Форум
Загрузка...
 

Language:
Русский
English

  {Typeof.PAS}
  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀
 {Sample code for the TypeOf function.}

  procedure GraphicalObject.Move;
 begin
   { Distinguish between derived types
    (subclasses) when moving}
   if TypeOf(Self) = TypeOf(ScrWindow) then
     { Take special action if moving a window}
   else
     { Take a different action otherwise}
  end;

 
 К началу страницы 
Тэги:
 

Код для вставки: :: :: :: ГОСТ ::
Поделиться: //
 



-
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"