в чем отличие class от object?

[illuminates]

помогите пожалуйста, учитель задал вопрос "в чем отличие class от object?" то есть можно програминовать пиша не class а object. и дал подсказку что отличие в наследовании. Очень был бы признателен за помощь.

[veniside]

object — это рудимент от досовского паскаля, чудом сохранившийся до наших дней
не может иметь dynamic методов и published свойств

object нельзя наследовать от class, и наоборот

[Пепел Феникса]

object в первую очередь это структура с методами(по сути) хранится так же на стеке.

[Larboss]

Класс - шаблон, на основе которого будет создан конкретный объект. Имеет свойства и методы. Пример класса - дерево.
Объект - "копия класса", конкретный экземпляр класса. Им мы уже можем манипулировать - вызывать методы и изменять свойства. Пример объекта - сосна.

[Человек_Борща]

Object - базовый класс ООП. Был, есть и будет.

обьявление вида:

type
TSameType = class

равносильно

type
TSameType = class(TObject)

Факт. это неявное обьявление выше приведеного кода.

В инспекторе обьектов(в режиме редактора кода), видно как приравнивает анализатор кода на лету ^^ код.

любой, абсолютно любой, класс явл. наследником TObject.

Выдержка из модуля system.pas:

type

TObject = class;

TClass = class of 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;

ООП повсюду. Вы его используете, даже не зная об этом.

Все что не явл. классом, всего лишь структура данных(тип), и от неё нельзя сделать наследование.
К этом отличие класса от типа данных.

т.е. так:

type
  TDataType = record
  TROLFACe:string;
  end;

 type
  TSomeClass=Class(TDataType)

за это нас пошлют далееко в лес!

[veniside]

object в первую очередь это структура с методами(по сути) хранится так же на стеке.

да, это тоже важное отличие. Хотя при желании объект можно создавать и на куче:

{$APPTYPE CONSOLE }

type
  //
  PAnimal = ^TAnimal;
  TAnimal = object
  private
    f_name: string;
  protected
    procedure sayHi(); virtual;
  public
    constructor new(const name: string);
    destructor done(const reason: string);
    //
    procedure hi();
  end;

  //
  TDog = object(TAnimal)
  protected
    procedure sayHi(); virtual;
  end;


{ TAnimal }

// --  --
destructor TAnimal.done(const reason: string);
begin
  writeln('I''m done, ', reason);
end;

// --  --
procedure TAnimal.hi();
begin
  sayHi();
end;

// --  --
constructor TAnimal.new(const name: string);
begin
  f_name := name;
  //
  inherited;
end;

// --  --
procedure TAnimal.sayHi();
begin
  writeln('Hi, I''m ', f_name);
end;


{ TDog }

// --  --
procedure TDog.sayHi();
begin
  writeln('Woof-woof, I''m ', f_name);
end;


var
  A: PAnimal;
  D: TDog;
begin
  // on heap
  New(A, new('Rhino'));
  A.hi();
  Dispose(A, done('gone fishing.'));
  //
  // on stack
  D.new('Bolt');
  D.hi();
  D.done('sleep time.');
end.

Ещё при перекрытии методов у объектов следует писать virtual, а не override.
И, если не ошибаюсь, в паскале допускались виртуальные конструкторы у объектов. Это реально срывало крышу ) Сейчас это забанили.

Человек_Борща, походу, перепутали ключевое слово object и класс TObject.

[Somebody]

Сообщение от veniside

И, если не ошибаюсь, в паскале допускались виртуальные конструкторы у объектов. Это реально срывало крышу ) Сейчас это забанили.

Как забанили? Или я что-то не так понял?

{$APPTYPE CONSOLE}

type
  TSort = class(TObject)
    constructor Create(); virtual; abstract;
  end;

  TBubbleSort = class(TSort)
    constructor Create(); override;
  end;

  TQuickSort = class(TSort)
    constructor Create(); override;
  end;

  TSortClass = class of TSort;

constructor TBubbleSort.Create();
begin
  WriteLn('TBubbleSort.Create');
end;

constructor TQuickSort.Create();
begin
  WriteLn('TQuickSort.Create');
end;

var
  SortClass: TSortClass;
  Sort: TSort;

begin
  SortClass := TBubbleSort;
  Sort := SortClass.Create();
  ReadLn;
  Sort.Free();
end.

[veniside]

забанили для object, такое уже не прокатывает:

  TPerson = object
    constructor Create(); virtual;
  end;

а для классов, да, этот костыль оставили, иначе class reference вызывают конструктор того класса, на который объявлена ссылка.

[illuminates]

огромное спасибо господа, все очень хорошо помогли разобраться в этом деле!