Разное
Облака / Clouds
The bast cloud service
Get 20 GB free!!!
Support WebDav.
Show more >>
time-tested cloud storage
Support WebDav.
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Delphi - Справочник: TObject
TObject
|
type TObject = class constructor Create; ... ... destructor Destroy; virtual; end; |
Тип (Unit System)
|
Тип базового класса, который является предком для всех других классов
|
Описание:
|
Тип TObject определяет тип базового класса. Он является самым старым прародителем всех классов - каждый класс, в конечном счете, получен из TObject. Из-за этого, каждый объект унаследовал методы TObject. Методы TObject относятся к двум категориям - класс и не класс. Когда предустановленно ключевое слово Class, метод можно вызвать и в объекте класса, и в классе непосредственно. Такой статический метод не может обратиться ни к каким полям класса, потому что сам класс не имеет никаких данных, только объекты - имеют данные. Некоторые ключевые (статические) методы Class: function ClassName Выдает имя класса как строку ClassParent Выдает имя родителя класса ClassInfo Выдает Run Time информацию класса InstanceSize Размер объекта класса в байтах NewInstance Создает новый объект класса Некоторые ключевые методы Object: Create Создатель пустого объекта Free Вызывает Destroy для ненулевых объектов Destroy Высвобождение памяти объекта AfterConstruction Вызывается после построения BeforeDestruction Вызывается перед разрушением |
Пример кода: Использование методов TObject унаследованных в подклассе TForm
|
// Форма модуля была получена от TObject. // Так что мы можем использовать методы TObject: ShowMessage('Имя класса объекта Form1 = '+ Form1.ClassName); ShowMessage('Имя родительского класса объекта Form1 = '+ Form1.ClassParent.ClassName); ShowMessage('Размер образца объекта Form1 = '+ IntToStr(Form1.InstanceSize)); // И теперь непосредственно TObject ShowMessage('Имя класса TObject = '+ TObject.ClassName); ShowMessage('Размер образца TObject = '+ IntToStr(TObject.InstanceSize)); end;
Результат:
|
Имя класса объекта Form1 = TForm1 Имя родительского класса объекта Form1 = TForm Размер образца объекта Form1 = 764 Имя класса TObject = TObject Размер образца TObject = 4 |