DELPHI КАК ПЕРЕДАТЬ АДРЕС НА СВОЙСТВО ОБЪЕКТА

Delphi позволяет передавать адрес на свойство объекта с помощью указателей на методы. Для этого необходимо объявить указатель на метод, указывающий на нужное свойство объекта, и передать его в нужном месте кода.Пример кода на Delphi:type TMyClass = class private FMyProperty: Integer; procedure SetMyProperty(Value: Integer); public property MyProperty: Integer read FMyProperty write SetMyProperty; end;procedure TMyClass.SetMyProperty(Value: Integer);begin FMyProperty := Value;end;var MyClass: TMyClass; Setter: procedure(Value: Integer) of object;begin MyClass := TMyClass.Create; Setter := MyClass.SetMyProperty; Setter(42); ShowMessage(IntToStr(MyClass.MyProperty)); MyClass.Free;end;Первые три строки объявляют класс TMyClass с приватным полем FMyProperty, которое с помощью публичного свойства MyProperty можно читать и записывать.Метод SetMyProperty устанавливает значение поля FMyProperty передаваемым параметром Value.В блоке кода создается экземпляр класса TMyClass, затем объявляется переменная Setter типа указатель на метод, указывающая на метод SetMyProperty объекта MyClass. Далее переменной Setter присваивается метод SetMyProperty, после чего вызывается Setter с параметром 42. Наконец, выводится сообщение со значением поля FMyProperty объекта MyClass.Таким образом, с помощью указателя на метод SetMyProperty можно передать адрес на свойство объекта MyClass и установить его значение снаружи объекта.

Урок 3. Изменение свойств объектов программным путем

Создание форм. Переход между формами - Программирование на Delphi

DELPHI Урок 6 Связи между таблицами (ADOQuery)

Программирование в Delphi Урок 5. Массивы и циклы, цикл for, глобальные переменные. Array

DELPHI Урок 3 Создание БД, добавление, удаление, изменение записей

#15 Программирование в Delphi. ООП. Свойства

Устройство USB не опознано в Windows?

Как получить параметры запроса из URL адреса - Get params JS

Программирование в Delphi Урок 3 2 Работа с текстом, строковые функции Length, Pos и другие

Реклама
Новое
Реклама