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;

Тэги:
| G+
Код для вставки: :: :: :: ::
Поделиться: // //