FreePascal.ru

Попробуйте убрать virtual вот тут

function QueryInterface({$IFDEF FPC_HAS_CONSTREF}constref{$ELSE}const{$ENDIF} IID: TGUID; out Obj): Longint; virtual; stdcall;
function _AddRef: Integer; virtual; stdcall;
function _Release: Integer; virtual; stdcall;

Должно помочь. Но я не знаю, как вызов ...

Господа, приветствую! С праздниками вас.
Господа, спасибо за ответы.

Добавлено спустя 1 минуту 44 секунды:
В ReleaseTable должно быть

Код: Выделить всё
Table := nil;

Вы абсолютно правы, в оригинальном коде это есть…
Но так как я хотел минимальным кодом поймать суть ошибки, для тестового ...

Добрый день, всем

Господа, можете подсказать, почему код ниже в Lazarus выдаёт ошибку а в Delphi (любой версии) нет ?

Вызов uTest3.Test ;
В FPC на строке T.Free; будет Access violation (а точнее не сразу а после выхода из функции)
Соответственно если закоментить то всё работает но утечка ...

Хм ... Возможно вы правы, но как-то это странно (я такого "присвоения типа" еще нигде не видел ) .
А почему по "логике паскаля" нельзя присвоить переменной тип ? Потому что операция "присвоить" подразумевает передачу данных, а что собственно передается в случае "присвоения типа" ?
CreateControl ...

Я не понимаю степень вашей удивлённости.
Ну это как бы базовые вещи языка..., можно сказать "типизированный указатель", вдруг если что, ещё можно в переменные функции и методы пихать...
как-то так...
Ну и где вы там видели конструкцию "theClass := TList;" ?
type TClass = class of TObject;
var ...

theClass := TList;
:shock:
Присвоить экземпляру тип ? Это вообще как ????


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

Вот вам ссылочка на ...

Господа, можете подсказать, почему код ниже в Lazarus выдаёт ошибку а в Delphi нет ?
Потому что Lazarus приличная IDE, а Delphi - нет. Delphi любит чтобы пользователь побольше мучался.

Имхо подобные штуки могут работать только если конструктор базового класса виртуальный.
Ого. Я утром читал ...

Если бы он небыл бы определён, то тогда бы проект не скомпилился...

в Lazarus :

objpash.inc
...
type
TextFile = Text;

{ now the let's declare the base classes for the class object
model. The compiler expects TObject and IUnknown to be defined
first as forward classes }
TObject = class ...

Добрый день, всем

Господа, можете подсказать, почему код ниже в Lazarus выдаёт ошибку а в Delphi нет ?


procedure AAA;
var
theClass: TClass;
L: TList;
begin
theClass := TList;
L := TList(theClass.Create); // L := TList.Create;
ShowMessage(L.ClassName);
if L.Count = 0 then // <-- Access ...

Кроме как писать &system - перешерстить код

&System - не помогает, не компилится

Добавлено спустя 7 минут 24 секунды:
Юрий оформи багрепорт

Попоробую сделать
Я правильно думаю что это здесь
m
?

Нашел там связаный баг (Как мне кажется...)
https&#58;//gitlab&#46;com/freepascal&#46;org/fpc ...

Добрый день всем

Портирую относительно большой проект с Delphi2007
Наткнулся в двух местах на "неприятность" с названием проперти "System"

В коде ниже, всё валидно, но вылетает
Error: Illegal qualifier
либо
Error: identifier idents no member “AbstractError”.
и без указания модуля и строки ...