class vs object

[Sam Gold]

Приветствую. Не думал, что буду спрашивать о Delphi... Но тем не менее.

Создаю класс

Type Complex = class
private
  Re : real;
  Im : real;

public
  constructor Create(); overload;
  constructor Create(A : real; B : real); overload;
  constructor Create(C : Complex); overload;
  destructor Dispose();
  function Add(A : Complex; B : Complex) : Complex;
end;

Вопросы:
1) class это просто наследник TObject ?
2) Можно ли перегрузить операторы, например +, := и т.д. В манах сказано, что только для структур. Зачем тогда вообще эти классы нужны?
3) Зачем писать ключевые слова constructor/destructor, если они автоматически не вызываются, как в C++, например.
4) Где будет создан объект: в стеке или в динамической памяти?

//Основное тело проги. Аналог main()
var C : Complex;
begin
  C := Complex.Create();
end.

5) Можно ли создать объект с помощью оператора new()? Ругается на

A := new(PComplex, Create(1,1));

Потом вспомнил студенчество и программирование на Паскале. Там класс определялся ключевым словом object. После замены class на object в вышеприведенном коде начинаю сыпаться ошибки. Соответственно идет ругань на вызов конструктора внутри метода класса. Например:

function Complex.Add(A : Complex; B : Complex) : Complex;
begin
  Add := Complex.Create(A.Re + B.Re, A.Im + B.Im);
  WriteLn('Add');
end;

В связи с этим, следующие вопросы
6) Можно ли вызвать конструктор или каким-либо иным образом создать новый объект внутри метода класса?
7) Также ругань идет на перегруженный конструктор:

A := new(PComplex, Create(10, 20));

Можно ли использовать конструкторы с тем же именем, или каждый конструктор должен носить уникальное имя?

[Alex11223]

Сообщение от Sam Gold

Зачем писать ключевые слова constructor/destructor, если они автоматически не вызываются, как в C++, например.

Ну они ж все равно особенные.
конструкторы например указатель на созданный объект возвращают.

[Аватар]

Complex = class и Complex = class(TObject) равносильно
Экземпляр класса, другими словами объект, создается в динамической памяти
new для создания объекта ни разу
конструкторы могут быть одно и разноименными

[Pavia]

Sam Gold

Сообщение от Sam Gold

1) class это просто наследник TObject ?

Так точно.

Сообщение от Sam Gold

2) Можно ли перегрузить операторы, например +, := и т.д. В манах сказано, что только для структур. Зачем тогда вообще эти классы нужны?

Оператор присвоения. Можно было перезагружать и раньше для классов. А вот остальные операторы только для структур. Классы нужны для наследования и создания динамических объектов - проще говоря на классах весь VCL держится.

Сообщение от Sam Gold

3) Зачем писать ключевые слова constructor/destructor, если они автоматически не вызываются, как в C++, например.

Это наследство BP7. constructor нужен для выделения памяти и вызова счетчика ссылок.

Сообщение от Sam Gold

Где будет создан объект: в стеке или в динамической памяти?

В динамической. На стеке только структуры.

Сообщение от Sam Gold

Можно ли создать объект с помощью оператора new()? Ругается на

Объект класс создать при помощи new нельзя.
Если хотите создать
C := Complex.Create(10,10);

Сообщение от Sam Gold

Потом вспомнил студенчество и программирование на Паскале. Там класс определялся ключевым словом object. После замены class на object в вышеприведенном коде начинаю сыпаться ошибки. Соответственно идет ругань на вызов конструктора внутри метода класса. Например:

Object сохраняется как атавизм, и пользоваться им не рекомендую.
Так для object как раз через new надо создавать. А потом вызывать Init(10,10) соответственно конструктор надо будет переписать на procedure init(A : real; B : real);

Сообщение от Sam Gold

Можно ли использовать конструкторы с тем же именем, или каждый конструктор должен носить уникальное имя?

Может начиная с D5.

Сообщение от Sam Gold

6) Можно ли вызвать конструктор или каким

Type TComplex = class
private
  Re : real;
  Im : real;

public
  constructor Create(); overload;
  constructor Create(A : real; B : real); overload;
  constructor Create(C : TComplex); overload;
  destructor Dispose();
  function Add(A , B: TComplex) : TComplex;
end;

function TComplex.Add(A, B: TComplex): TComplex;
begin
Result:=TComplex.Create;
Result.Re:=A.Re+B.Re;
end;

[Sam Gold]

Pavia, спасибо за развернутый ответ!

Оператор присвоения. Можно было перезагружать и раньше для классов.

А как? оператор Implicit перегружать?

Вопросы 6 и 7 касались ситуации когда Complex объявлен как object.

Type Complex = class
private
  Re : real;
  Im : real;

public
  constructor Create(); overload;
  constructor Create(A : real; B : real); overload;
  constructor Create(C : Complex); overload;

Т.е.
6) Можно ли вызвать конструктор или каким-либо иным образом создать новый объект внутри метода класса (type Complex = object ...)
7) Можно ли иметь в object несколько перегруженных конструкторов и передавать их в new ?

A := new(PComplex, Create(10, 20));

8) Кстати, если Complex это object, то где будет располагаться C? Тоже в хипе?

var A : PComplex; C : Complex

begin
A := new(PComplex, Create(10, 20));
C := A^;

[Pavia]

Сообщение от Sam Gold

8) Кстати, если Complex это object, то где будет располагаться C? Тоже в хипе?

Тут С будет в стеке.

Сообщение от Sam Gold

7) Можно ли иметь в object несколько перегруженных конструкторов и передавать их в new ?

У object нет конструкторов вообще. Поэтому никак нельзя.

 PComplex=^TComplex;
  TComplex=object
   Re,Im:Real;
   procedure init(x,y:Real);
   end;
...
A := new(PComplex);
A.Init(10,10);

Сообщение от Sam Gold

Можно ли вызвать конструктор или каким-либо иным образом создать новый объект внутри метода класса (type Complex = object ...)

Странный вопрос. Это не Си, дельфи автоматически не вызывает конструктор.
А внутри метода можете вызывать сколько надо.

  TFoo=class
  ...
  end;
  
  TBoo=object
   Foo:TFoo;
   procedure init;
  end;

procedure TBoo.init;
begin
 Foo:=TFoo.Create;
end;

[Sam Gold]

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

У object нет конструкторов вообще. Поэтому никак нельзя.

Пардон, как это? А что же тогда передается в оператор new? Delphi там хочет видеть только то,что помечено словом constructor.

A := new(PComplex, Create(10, 20));

Если туда передавать процедуру, то начнется ругань.

A := new(PComplex);
A.Init(10,10);

Ну если таким образом инициализировать объект, то да

Я имел ввиду, можно ли как-то исхитрится в такой конструкции и

Type Complex = object
private
  Re : real;
  Im : real;

public
  constructor Create(); override;
  constructor Create(A : real; B : real); override;
  constructor Create(C : Complex); override;
end;

чтобы не ругалось на

A := new(PComplex, Create(10, 20));

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

Это не Си, дельфи автоматически не вызывает конструктор.

Ну C тоже не вызывает, конструкторы же в плюсах Автоматически не вызываются конструкторы, при уничтожении объекта в стеке автоматически не вызываются деструкторы... Довольно странно, что они вынесены в отдельные сущности, можно же было тогда позволить в new указатель на соответствующую функцию пихать. (Да, это камушек в огород Pascal и Delphi)

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

А внутри метода можете вызывать сколько надо.

В Вашем примере с class и object да. А вот если есть только object. И внутри одного из методов этого object надо вызвать конструктор.

[northener]

Сообщение от Sam Gold

Я имел ввиду, можно ли как-то исхитрится в такой конструкции и

Пишите программу на Паскале и используйте Паскалевский компилятор. И да прибудет вам "щасте". На Дельфи так делать нельзя.

[min@y™]

Что за бред я только что прочитал?

[Sam Gold]

Спасибо отписавшимся по делу.

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

Пишите программу на Паскале и используйте Паскалевский компилятор. И да прибудет вам "щасте". На Дельфи так делать нельзя.

По условию задачи надо на Дельфях, но с синтаксисом Паскаля. Сам я сними не работал, но знакомый попросил объяснить работу с объектами в Делфи, и что-то это уже не кажется мне простой задачей. У них в универе до сих пор (sic!!!) преподают Паскаль, но поскольку он под новыми осями запускается только с танцами с бубном перешли на Делфи, плюс, рассказывают про пару простеньких фич, реализованных в Дельфях.

Сообщение от min@y™

Что за бред я только что прочитал?

Очень информативно и по делу.