Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> не работают свойства с объектами в Delphi 7 
:(
    Опции темы
ilyalyu
Дата 8.3.2008, 13:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 135
Регистрация: 25.10.2006

Репутация: нет
Всего: нет



Код
type TObject = object
       x: Integer;
       function getY: Integer;
       property y: Integer read getY;
     end;

function TObject.getY: Integer;
begin
  Result := x
end;

var o: TObject;
    i: Integer;

begin
  i := o.getY;
  i := o.x;
  i := o.y;


Когда я напрямую использую функцию getY или поле x, никакой ошибки не происходит. Однако, когда я использую свойство y, возникает ошибка access violation. Как показало небольшое расследование, когда я напрямую вызываю функцию getY, указатель Self указывает на объект, а когда я использую свойство y, указатель Self, передаваемый функции getY, равен нулю (nil). Вся эта катавасия происходит с обхектами (object), а не с классами. Кто-нибудь сталкивался с подобной проблемой в Delphi 7?
PM MAIL   Вверх
ivan219
  Дата 8.3.2008, 21:30 (ссылка) |   (голосов:4) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 2
Всего: 12



ilyalyu,  TObject уже существует в unit System.

Это сообщение отредактировал(а) ivan219 - 8.3.2008, 21:39
PM MAIL ICQ   Вверх
ilyalyu
Дата 9.3.2008, 13:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 135
Регистрация: 25.10.2006

Репутация: нет
Всего: нет



ну и что? во-первых, это не мешает определить его внутри другого юнита. во-вторых, вопрос не об этом.
PM MAIL   Вверх
ivan219
  Дата 9.3.2008, 14:57 (ссылка) |    (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 2
Всего: 12



Цитата(ilyalyu @  9.3.2008,  13:23 Найти цитируемый пост)
ну и что?

Для порядку smile 
PM MAIL ICQ   Вверх
kemiisto
Дата 9.3.2008, 15:45 (ссылка) |    (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Дикий Кот. =^.^=
****
Награды: 1



Профиль
Группа: Участник Клуба
Сообщений: 3292
Регистрация: 29.7.2007

Репутация: 16
Всего: 160



Ну не работает. И что с того. ilyalyu, я чего то не догоняю. Ты читал встроенную справку:
Цитата

Object types are supported for backward compatibility only. Their use is not recommended.

Зачем использовать устаревшую возможность языка оставленнную для совместимости?! 

Цитата(ilyalyu @  8.3.2008,  13:19 Найти цитируемый пост)
 Вся эта катавасия происходит с обхектами (object), а не с классами.

Не корректно! Это происходит с переменными пользовательского типа данных, производного от object, а не с объектами. Потому, что начиная с 7 версии Borland определился с терминологией (лучше поздно, чем никогда  smile ): объект - экземпляр класса, т.е. переменная пользовательского типа данных, производного от class. Так что с объектами то как раз все в порядке!




--------------------
PM MAIL WWW GTalk Jabber   Вверх
ilyalyu
Дата 10.3.2008, 00:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 135
Регистрация: 25.10.2006

Репутация: нет
Всего: нет



kemiisto, то что object-ы оставлены для совместимости не означает, что в них должны быть баги. Мой вопрос - встречал ли кто-нибудь такой баг и как с ним справлялся. А вы хотите сказать, что так и нужно, чтобы все криво работало?
PM MAIL   Вверх
Alexeis
Дата 10.3.2008, 10:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459



ilyalyu, предполагаю что свойства используют VMT для своих целей, потому если объект не имеет виртуальных методов и конструктора, то свойства не будут работать. короч. вот такой пример уже работает.

Код

type
   TObject = object
      protected
        x: Integer;
      public
        constructor Create;
        function getY: Integer;
        property y: Integer read getY;
        function vvv : Integer; virtual;
     end;

function TObject.getY: Integer;
begin
  Result := x;
end;

constructor TObject.Create;
begin

end;

function TObject.vvv : Integer;
begin

end;

var
  o: ^TObject;
  i: Integer;
begin
  New(o, Create);
  i := o.getY;
  i := o.x;
  i := o.y;
end.



--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
ilyalyu
Дата 23.4.2008, 09:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 135
Регистрация: 25.10.2006

Репутация: нет
Всего: нет



Alexeis, спасибо. действительно, такой пример работает. правда, размер объекта теперь не 4 байта, а 8 (очевидно из-за того, что 4 байта расходуются на эту самую VMT). а мне нужно чтобы объекты были полностью идентичны в Delphi и Free Pascal.
PM MAIL   Вверх
AlekXL
Дата 18.5.2011, 20:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 92
Регистрация: 2.5.2008

Репутация: нет
Всего: 0



Цитата(Alexeis @  10.3.2008,  10:16 Найти цитируемый пост)
ilyalyu, предполагаю что свойства используют VMT для своих целей, потому если объект не имеет виртуальных методов и конструктора, то свойства не будут работать. короч. вот такой пример уже работает.

это неверно. Здесь известный баг small objects, 4-х байтовых объектов. Если добавить виртульный метод, то размер станет >=8байт, проблема исчезнет, но проблема исчезнет также, если вы добавите еще одну переменную член.
Лишь бы размер объекта был более 4байт
Как вариант, можно еще использовать record, в ней нет этой проблемы, но можно объявлять методы и свойсва, только вот они все будут public, потому что record не поддерживает visibility specifiers типа private,protected, automated, published
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0880 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.