Developing.ru

[b]Игорь Акопян[/b], перегрев полный, последие пол года все свободное время трачу на написание всякой всячины недетской.

[b]Duncon[/b], по-моему ты перегрелся ;)
[b]somewhere [/b], я не обсуждал целесообразность приведённого кода, я его комментировал ;)

[quote="somewhere"][b]Duncon[/b], ты прямо подорвал мою веру во все хорошее ))))
Сколько лет считал что класс может быть пустым и можно строить его как угодно, а тут такая подстава. Что интересно, раньше я этого не замечал и вышеприведенный код это только и доказывал, хотя сейчас мне сложно понять как TObject был создан из самого себя. Очень жаль, что все эти детища от него наследованы. Спасибо за объяснение, впредь буду знать...[/quote]

Может, что-то не шибкоо умное (в той области, что касается именно Delphi) сейчас скажу :)
Насколько я помню, [b]class[/b] - это Дельфийская "фича". В обектном Паскале (начиная с версии 5.5, если речь идет о Turbo Pascal) был [b]object[/b]. Т.е., в отличие от "необъектной" [b]record[/b], [b]object[/b] как раз уже мог иметь в описании не только поля, но и методы.

Собственно, [b]record[/b] и [b]object[/b], как я понимаю, допустимо использовать и в Delphi.
А Дельфийский [b]class[/b] - это, видимо, еще более "высокая ипостась". Собственно, кое-что об этом написал [b]Duncon[/b].

Типа книжки почитай, там обычно большими буквами об этом пишут.
данная запись TmyClass = class равнозначна TmyClass = class(TObject) просто его можно опускать в объявлении родителя.

[b]Duncon[/b], ты прямо подорвал мою веру во все хорошее ))))
Сколько лет считал что класс может быть пустым и можно строить его как угодно, а тут такая подстава. Что интересно, раньше я этого не замечал и вышеприведенный код это только и доказывал, хотя сейчас мне сложно понять как TObject был создан из самого себя. Очень жаль, что все эти детища от него наследованы. Спасибо за объяснение, впредь буду знать...

somewhere а зачем мне показывать класс TObject который по умолчанию является родителем всего..
Твоя запись дословно означает
TObject = class
Создаю новый класс TObject унаследованный от TObject, видимо пространство имен это позволяет.

TObject = class
    constructor Create;
    procedure Free;
    class function InitInstance(Instance: Pointer): TObject;
    procedure CleanupInstance;
    function ClassType: TClass;
    class function ClassName: ShortString;
    class function ClassNameIs(const Name: string): Boolean;
    class function ClassParent: TClass;
    class function ClassInfo: Pointer;
    class function InstanceSize: Longint;
    class function InheritsFrom(AClass: TClass): Boolean;
    class function MethodAddress(const Name: ShortString): Pointer;
    class function MethodName(Address: Pointer): ShortString;
    function FieldAddress(const Name: ShortString): Pointer;
    function GetInterface(const IID: TGUID; out Obj): Boolean;
    class function GetInterfaceEntry(const IID: TGUID): PInterfaceEntry;
    class function GetInterfaceTable: PInterfaceTable;
    function SafeCallException(ExceptObject: TObject;
      ExceptAddr: Pointer): HResult; virtual;
    procedure AfterConstruction; virtual;
    procedure BeforeDestruction; virtual;
    procedure Dispatch(var Message); virtual;
    procedure DefaultHandler(var Message); virtual;
    class function NewInstance: TObject; virtual;
    procedure FreeInstance; virtual;
    destructor Destroy; virtual;
  end;
...
...
class function TObject.ClassParent: TClass;
{$IFDEF PUREPASCAL}
begin
  Pointer(Result) := PPointer(Integer(Self) + vmtParent)^;
  if Result <> nil then
    Pointer(Result) := PPointer(Result)^;
end;
{$ELSE}
asm
        MOV     EAX,[EAX].vmtParent
        TEST    EAX,EAX
        JE      @@exit
        MOV     EAX,[EAX]
@@exit:
end;
{$ENDIF}

class function TObject.NewInstance: TObject;
begin
  Result := InitInstance(_GetMem(InstanceSize));
end;

procedure TObject.FreeInstance;
begin
  CleanupInstance;
  _FreeMem(Self);
end;
...
...
...

TObject не есть низ классовой структуры, вот например как он описан:
[code]
TObject = class
constructor Create;
procedure Free;
class function InitInstance(Instance: Pointer): TObject;
procedure CleanupInstance;
function ClassType: TClass;
class function ClassName: ShortString;
class function ClassNameIs(const Name: string): Boolean;
class function ClassParent: TClass;
class function ClassInfo: Pointer;
class function InstanceSize: Longint;
class function InheritsFrom(AClass: TClass): Boolean;
class function MethodAddress(const Name: ShortString): Pointer;
class function MethodName(Address: Pointer): ShortString;
function FieldAddress(const Name: ShortString): Pointer;
function GetInterface(const IID: TGUID; out Obj): Boolean;
class function GetInterfaceEntry(const IID: TGUID): PInterfaceEntry;
class function GetInterfaceTable: PInterfaceTable;
function SafeCallException(ExceptObject: TObject;
ExceptAddr: Pointer): HResult; virtual;
procedure AfterConstruction; virtual;
procedure BeforeDestruction; virtual;
procedure Dispatch(var Message); virtual;
procedure DefaultHandler(var Message); virtual;
class function NewInstance: TObject; virtual;
procedure FreeInstance; virtual;
destructor Destroy; virtual;
end;
...
...
class function TObject.ClassParent: TClass;
{$IFDEF PUREPASCAL}
begin
Pointer(Result) := PPointer(Integer(Self) + vmtParent)^;
if Result <> nil then
Pointer(Result) := PPointer(Result)^;
end;
{$ELSE}
asm
MOV EAX,[EAX].vmtParent
TEST EAX,EAX
JE @@exit
MOV EAX,[EAX]
@@exit:
end;
{$ENDIF}

class function TObject.NewInstance: TObject;
begin
Result := InitInstance(_GetMem(InstanceSize));
end;

procedure TObject.FreeInstance;
begin
CleanupInstance;
_FreeMem(Self);
end;
...
...
...
[/code]
ну и так далее...

somewhere очень интересно посмотреть на твой класс с нуля.

[quote="&quot"]Конструктор класса унаследованного от TObject должен быть как минимум перекрытым (override),называться Create и иметь сходный набор параметров. Первой строкой в нём должен быть вызов родительского конструктора с помощью инструкции Inherited[/quote]
Да зачем надо от TObject наследоваться, его методы и свойства никак в задаче жизнь не облегчат. Надо класс с нуля начинать.

ну если про класс...
Конструктор класса унаследованного от [b]TObject[/b] должен быть как минимум перекрытым ([b]override[/b]),называться [b]Create[/b] и иметь сходный набор параметров. Первой строкой в нём должен быть вызов родительского конструктора с помощью инструкции [b]Inherited[/b]