vmtSelfPtr

[hinst]

Превед всм. Подскажите пожалуйста, где в Lazarus vmtSelfPtr (если такой есть вообще). Оч. спичит
Спасибо за внимание

[Vadim]

hinst
1. Что за термин "превед"? Это Вы на каком языке тут всех обругали?
2. Что за термин "спичит"?
Без этих разъяснений понять, что Вы от нас хотите, будет совершенно невозможно.

[hinst]

превед = привет
всм = всем
Оч. спичит = очень надобно

[Sergei I. Gorelkin]

В Дельфи результат, возвращаемый ClassType, указывает "в середину" VMT, на первый виртуальный метод собственно объекта. Чтобы получить указатель на начало VMT, к нему нужно прибавить константу vmtSelfPtr (равную -76 в Delphi 7).
В FPC ClassType указывает на начало VMT, поэтому нужды в подобной константе нет. Чтобы получить указатель на первый виртуальный метод, можно прибавлять sizeof(TVmt).

[hinst]

то есть, если написать
const vmtSelfPtr = sizeof(TVmt);
то компонент, бывший для дельфи, будет предположительно работать нормально??

[Sergei I. Gorelkin]

Не будет, потому что там, где в Дельфи добавлялся vmtSelfPtr, его добавлять не нужно, а там, где не добавлялся - наоборот, нужно.

[hinst]

А как тогда?
const vmtSelfPtr = - sizeof(TVmt);
так покатит?