Модератор: Модераторы
Код: Выделить всё
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 violation reading from address $0000000000000010.
L.Add(nil);
end;
Код: Выделить всё
theClass := TList;Код: Выделить всё
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;
IUnknown = interface;
TClass = class of tobject;
PClass = ^tclass;
Код: Выделить всё
unit System;
...
type
TObject = class;
TClass = class of TObject;
Код: Выделить всё
L:= TList(theClass.Create).Create;А которая Delphi, интересно?Юрий писал(а):Господа, можете подсказать, почему код ниже в Lazarus выдаёт ошибку а в Delphi нет ?
...
Прямо какая-то досада непонятная...
Потому что Lazarus приличная IDE, а Delphi - нет. Delphi любит чтобы пользователь побольше мучался.Юрий писал(а):Господа, можете подсказать, почему код ниже в Lazarus выдаёт ошибку а в Delphi нет ?
Ого. Я утром читал чуть чуть, про эту обертку и там ничего об этом не было. Но правда.. работает кодiskander писал(а):Имхо подобные штуки могут работать только если конструктор базового класса виртуальный.
Код: Выделить всё
TComponent
....
constructor Create(AOwner: TComponent); virtual;
procedure TForm1.Button3Click(Sender: TObject);
var
theClass: TControlClass;
L: TComboBox;
T:TObject;
begin
theClass := TComboBox;
t := theClass.Create(self);
L := TComboBox(t); // L := TList.Create;
ShowMessage(L.ClassName);
if L.Items.Count = 0 then // <-- Access violation reading from address $0000000000000010.
L.Items.Add('-');
end;
>>Но правда.. работает кодSharfik писал(а):Потому что Lazarus приличная IDE, а Delphi - нет. Delphi любит чтобы пользователь побольше мучался.Юрий писал(а):Господа, можете подсказать, почему код ниже в Lazarus выдаёт ошибку а в Delphi нет ?
Ого. Я утром читал чуть чуть, про эту обертку и там ничего об этом не было. Но правда.. работает кодiskander писал(а):Имхо подобные штуки могут работать только если конструктор базового класса виртуальный.
Код: Выделить всё
type
TListClass = class of TList;
procedure TForm1.Button2Click(Sender: TObject);
var
theClass: TListClass;
L: TList;
T: TObject;
begin
theClass := TList; // или наследники TList
t := theClass.Create;
L := TList(t);
ShowMessage(t.ClassName);
if L.Count = 0 then // <-- Всё хорошо
L.Add(nil);
...
Удивительно но работает! (везде Laz64,D2007 32,XE8 64/32)RRYTY писал(а):Тогда так:
Код: Выделить всё
L:= TList(theClass.Create).Create;
Код: Выделить всё
procedure TForm1.Button3Click(Sender: TObject);
var
theClass: TClass;
L: TList;
begin
theClass := TList;
//L := TList.Create;
//L := TList(theClass.Create);
L := TList(theClass.Create).Create;
ShowMessage(L.ClassName);
if L.Count = 0 then
L.Add(nil);
ShowMessage(IntToStr(L.Count));
L.Free;
end;
Всё зависит от менеджера памяти и включенных опций безопасности и т.п.Юрий писал(а):Sharfik писал(а):Юрий писал(а): Удивительно но работает! (везде Laz64,D2007 32,XE8 64/32)
При переходе с Delphi на Lazaasu о программировании узнаешь гораздо больше и код становится более продуманным.Юрий писал(а):>>Потому что Lazarus приличная IDE, а Delphi - нет. Delphi любит чтобы пользователь побольше мучался.
Тут я с вами не согласен. И та и та отличные среды, где-то в одной что-то удобнее, где-то в другой…
Тут вопрос выбора больше политически-идеологический… Моё личное мнение что после наступление примерного момента когда Убунта(и аналоги) стали по качеству луче чем Винда… Сначала Винда со своими обновлениями и инновациями пойдёт постепенно в Ж… А потом и Делфи потянется туда же… А для нас это процесс пойдёт быстрее, плоды начали всходить от санкций и импортозамещений…
По сути бесполезный и не правильный код. Суть идеи TClass чтобы работать с абстрактным типом класса. Делать какие то манипуляции не ориентируясь на процедуры класса конкретного. А в указанном коде, это все теряется.Юрий писал(а):L:= TList(theClass.Create).Create;
Код: Выделить всё
theClass := TList;
Код: Выделить всё
L:= TList(theClass.Create).Create;
Чтобы хакеры из Microsoft могли в любой момент ничего не зная программе управлять ею через абстрактные процедурыAlex2013 писал(а):Зачем нужны такие сложности ?
Я не понимаю степень вашей удивлённости.Alex2013 писал(а):Код: Выделить всё
theClass := TList;
Присвоить экземпляру тип ? Это вообще как ????
Вам спасибо за интересный вариантRRYTY писал(а):Тогда так:
Код: Выделить всё
L:= TList(theClass.Create).Create;
Я считаю что это бага в FPwavebvg писал(а):
Всё зависит от менеджера памяти и включенных опций безопасности и т.п.
0. TObject.Create и TList.Create -- статические методы. Значит TList(theClass.Create); вызовет только TObject.Create выделит памяти для TObject.
1. TList(theClass.Create).Create; вызовет TObject.Create выделит памяти для TObject, после чего вызовет конструктор для TList.Create и попортит память за пределами класса.
2. В Дельфе TList класс в себе и ничего в конструкторе интересного не делает, в отличии от FPC-го, который, по сути, является делегированной обёрткой над TFPList.
3. Если обращение TFPList(nil).Count у Вас работает, т.е. чтение из адреса 0+Смещение FCount (+$10 судя из поста топикстартера) из TFPList, то нет AV, в противном случае есть.
>>Понятие "удобно" это путь к деградации.Sharfik писал(а):При переходе с Delphi на Lazaasu о программировании узнаешь гораздо больше и код становится более продуманным.Юрий писал(а):>>Потому что Lazarus приличная IDE, а Delphi - нет. Delphi любит чтобы пользователь побольше мучался.
Тут я с вами не согласен. И та и та отличные среды, где-то в одной что-то удобнее, где-то в другой…
Тут вопрос выбора больше политически-идеологический… Моё личное мнение что после наступление примерного момента когда Убунта(и аналоги) стали по качеству луче чем Винда… Сначала Винда со своими обновлениями и инновациями пойдёт постепенно в Ж… А потом и Делфи потянется туда же… А для нас это процесс пойдёт быстрее, плоды начали всходить от санкций и импортозамещений…
Понятие "удобно" это путь к деградации. Вместо того чтобы учиться и изучать новое, люди упираются в одно какое то ПО и перестают развиваться. А дальше вместе с ними вся компания потенциально угасает. Сейчас это особенно заметно, когда люди вместо того чтобы попробовать что то новое начинают предлагать "давайте взломанный установим".
Ну и где вы там видели конструкцию "theClass := TList;"?Юрий писал(а):Я не понимаю степень вашей удивлённости.
Ну это как бы базовые вещи языка..., можно сказать "типизированный указатель", вдруг если что, ещё можно в переменные функции и методы пихать...
как-то так...
>>Ну и где вы там видели конструкцию "theClass := TList;"?Alex2013 писал(а):Ну и где вы там видели конструкцию "theClass := TList;"?Юрий писал(а):Я не понимаю степень вашей удивлённости.
Ну это как бы базовые вещи языка..., можно сказать "типизированный указатель", вдруг если что, ещё можно в переменные функции и методы пихать...
как-то так...
type TClass = class of TObject;
var AnyObj: TClass;
Это нормально . А var AnyObj: TClass; ... begin AnyObj := TObject;... ( или TList) нет .
Просто AnyObj у как был тип TClass так и остался . ( по моему там вообще ошибка вылезать должна)
Это же как если использовать нетипизированный параметры в процедуре/функции , "нетипизированный параметр" можно перевести к любому типу, но ПРИСВОИТЬ тип "в рунтайм режиме" по идее нельзя.
Если написать AnyObj := TObject.Create; то по сути язык просто глотает New и на самом деле делается AnyObj := New (TObject) и AnyObj.Create; написав AnyObj := TObject; мы не получаем ничего, возможно сработает New (TObject) но это очень сомнительно, а в случае AnyObj := TList; в fpc/лазарусе по умолчанию нужно написать приведение AnyObj := TClass (TList); В Дельфи куда более мягкое отношение к типизации по этому AnyObj := TList; может "проскочить" . Но даже так создать экземпляр класса БЕЗ вызова конструктора изрядная дикость .
Хм ! Возможно эта "лазейка" оставлена для использования классов "без конструктора но с деструктором" ( или возможности вызова "не стандартного" внешнего конструктора ) но все равно смотрится это очень бредово .
Код: Выделить всё
type
TAAA = class(TObject) …
TBBB = class(TAAA) …
TCCC = class(TBBB) …
TClass = class of TObject;
Код: Выделить всё
var
theClass: TClass
begin
theClass := TAAA;
O := theClass.Create; // Создан экземпляр TAAA со своим переопределённым конструктором если он есть, не с констуктором TObject
theClass := TBBB;
O := theClass.Create; // Создан экземпляр TBBB со своим переопределённым конструктором
theClass := TCCC;
O := theClass.Create; // Создан экземпляр TCCC со своим переопределённым конструктором