перегрузка оператора :=

[AlexP]

Делаю все как написано в примере в хелпе (Ref.pdf) -

Код: Выделить всё

type
complex = record
  re : real;
  im : real;
end;

Operator := (C : Complex) z : complex;


На последней строке получаю ошибку -

Error: Impossible to overload assignment for equal types

Это действительно невоможно, несмотря на то, что в хелпе приведен такой пример? Или я делаю что-то не так?

[Aisa]

up

[bw]

Привет.

Во первых, учим английский, или хотя бы учимся пользоваться переводчиком: Error: Impossible to overload assignment for equal types.
Во вторых, кто за вас будет "тело оператора" писать?

Код: Выделить всё

Operator := (c: Real) z: Complex;
begin
  z.re := c;
  z.im := 0;
end;


В той же документации всё написано, достаточно было перевернуть на следующую страницу.

..bw

[Aisa]

Первоначальный вопрос был не мой, но я наткнулся на такую же проблему и апнул топик двухлетней давности. Лично мне нужно нужно присвоить одной записи другую запись того же типа, чтобы не прописывать присвоение всех полей по отдельности. У меня не получается. Здесь аналогичный вопрос. И проблема не в английском и не в теле оператора.

Error: Impossible to overload assignment for equal types
You can not overload assignment for types that the compiler considers as equal.

[VirtUX]

Лично мне нужно нужно присвоить одной записи другую запись того же типа, чтобы не прописывать присвоение всех полей по отдельности. У меня не получается.

Код: Выделить всё

type
  rec = record
    f1: AnyType;
    f2: AnyType;
end;

var
  r1, r2: rec;

begin
  r1.f1 := AnyWhat;
  r1.f2 := AnyWhat;
  r2 := r1;
end;

Вы хотите сказать, что так не работает?
У меня все прекрасно работает.

[Aisa]

Ох. У меня проблема возникла при сравнении, начал разбираться с перегрузкой операторов и меня коротнуло на присвоение. В случае сравнения все нормально перегружается, спасибо.

[bw]

Лично мне нужно нужно присвоить одной записи другую запись того же типа, чтобы не прописывать присвоение всех полей по отдельности.

Код: Выделить всё

type
  Complex = record
    re: Real;
    im: Real;
  end;

var
  a, b: Complex;
begin
  a := b;
end.


FPC 2.2.0, всё прекрасно работает, без переопределения оператора.

Добавлено спустя 57 секунд:

В случае сравнения все нормально перегружается, спасибо.

Теперь понятно :-).

..bw