Отправка собственного указателя в Delphi: использование ключевого слова "Self"

Delphi , Синтаксис , Память и Указатели

Вопрос о работе с указателями в объектно-ориентированном программировании на языке Delphi может показаться сложным, но с пониманием основных концепций, таких как "Self", становится проще. "Self" в Delphi является ключевым словом, которое используется для получения ссылки на текущий экземпляр класса внутри метода этого класса. Однако важно понимать разницу между ссылкой и указателем, а также то, как "Self" используется в контексте классовых и экземплярных методов.

Что такое "Self" в Delphi?

"Self" не является указателем в прямом смысле этого слова. В контексте классовых методов "Self" возвращает указатель на метаданные класса, то есть на структуру, содержащую информацию о виртуальном методовом таблице, типах и других данных, которые относятся к классу, а не к конкретному экземпляру. В контексте экземплярных методов "Self" возвращает ссылку на текущий объект, которая фактически идентична ссылке, используемой для вызова метода.

Пример кода

type
    TTest = class(TObject)
    public
        class function getClassPointer: Pointer; static;
        function getSelfPointer: Pointer;
    end;

class function TTest.getClassPointer: Pointer;
begin
    Result := Pointer(TypeInfo(nil));
end;

function TTest.getSelfPointer: Pointer;
begin
    Result := Pointer(Self);
end;

В приведенном выше коде getClassPointer возвращает указатель на метаданные класса, а getSelfPointer возвращает указатель на экземпляр класса, который в данном случае является ссылкой на текущий объект внутри метода.

Объяснение результатов работы кода

Пример кода, представленный в вопросе, демонстрирует, что результаты работы функции getClassPointer и getSelfPointer существенно отличаются. Это связано с тем, что getClassPointer возвращает указатель на метаданные класса, а getSelfPointer - указатель на экземпляр класса, который создается во время выполнения программы и зависит от того, где в памяти был выделен экземпляр объекта.

var
    test: TTest;
begin
    test := TTest.Create;
    try
        Writeln('Actual object address: ', IntToHex(Integer(@test), 8));
        Writeln('Class "Self" value: ', IntToHex(Integer(TTest.getClassPointer()), 8));
        Writeln('Object "Self" value: ', IntToHex(Integer(test.getSelfPointer()), 8));
    finally
        test.Free;
    end;

Как использовать указатель на объект для будущего использования?

Для будущего использования указателя на объект, вы можете сохранить его в другой переменной, например, если объект встроен в структуру другого объекта как поле.

type
    TMyStructure = record
        TestObject: TTest;
    end;
var
    MyStructure: TMyStructure;
    SecondReference: TTest;
begin
    MyStructure.TestObject := TTest.Create;
    try
        SecondReference := MyStructure.TestObject;
        // Делаем что-то с SecondReference
    finally
        SecondReference.Free;
        MyStructure.TestObject.Free;
    end;
end;

Заключение

Использование "Self" в Delphi требует понимания того, что "Self" возвращает ссылку на экземпляр объекта в экземплярных методах и на метаданные класса в классовых методах. Для получения указателя на объект внутри него можно использовать "Self" в экземплярных методах, который будет идентичен ссылке, через которую был вызван метод.

Надеемся, что данная статья помогла вам лучше понять, как работает "Self" в Delphi и как его можно использовать для работы с указателями на объекты.

Создано по материалам из источника по ссылке.

Ключевое слово 'Self' в Delphi используется для получения ссылки на текущий объект в экземплярных методах и на метаданные класса в классовых методах.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Память и Указатели ::