Переопредиление операторов

[GBAXA]

Здравствуйте!
Можно в Delphi переопредилить оператори +,-,*,/ для своего типа даних?
Если можно то примерно как.
Зарание спасибо и извините пожалуйста за ошибки я плохо знаю русский.

[Stilet]

Я слышал что в 2010 это можно сделать.
Но за достоверность не ручаюсь.

[Utkin]

Оператор Сигантура Тип оператора
Неявное преобразование Implicit(a : type) : resultType; Приведение
Явное преобразование Explicit(a: type) : resultType; Приведение
- Negative(a: type) : resultType; Унарный
+ Positive(a: type): resultType; Унарный
Inc Inc(a: type) : resultType; Унарный
Dec Dec(a: type): resultType Унарный
not LogicalNot(a: type): resultType; Унарный
not BitwiseNot(a: type): resultType; Унарный
Trunc Trunc(a: type): resultType; Унарный
Round Round(a: type): resultType; Унарный
= Equal(a: type; b: type) : Boolean; Сравнение
<> NotEqual(a: type; b: type): Boolean; Сравнение
> GreaterThan(a: type; b: type) Boolean; Сравнение
>= GreaterThanOrEqual(a: type; b: type): resultType; Сравнение
< LessThan(a: type; b: type): resultType; Сравнение
<= LessThanOrEqual(a: type; b: type): resultType; Сравнение
+ Add(a: type; b: type): resultType; Бинарный
- Subtract(a: type; b: type) : resultType; Бинарный
* Multiply(a: type; b: type) : resultType; Бинарный
/ Divide(a: type; b: type) : resultType; Бинарный
div IntDivide(a: type; b: type): resultType; Бинарный
Mod Modulus(a: type; b: type): resultType; Бинарный
shl ShiftLeft(a: type; b: type): resultType; Бинарный
shr ShiftRight(a: type; b: type): resultType; Бинарный
and LogicalAnd(a: type; b: type): resultType; Бинарный
Or LogicalOr(a: type; b: type): resultType; Бинарный
xor LogicalXor(a: type; b: type): resultType; Бинарный
and BitwiseAnd(a: type; b: type): resultType; Бинарный
Or BitwiseOr(a: type; b: type): resultType; Бинарный
xor BitwiseXor(a: type; b: type): resultType; Бинарный

Вот все что можно переопределять. Об этом написано в одной из статей журнала нашего форума. Скачать можно на procoder.info Там же есть и примеры. Появилось в Delphi .NET

[GBAXA]

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

Вот все что можно переопределять. Об этом написано в одной из статей журнала нашего форума. Скачать можно на procoder.info Там же есть и примеры. Появилось в Delphi .NET

У меня Delphi 2010 есть обичньій и .net то ето можно делать только в .net или и в обьічном?

[Utkin]

И там и там. Обычный 2010 есть также и .NET, просто сейчас вешать такой ярлык уже не модно. А тот который действительно .NET, кажись, соответствует 8-ке, точно не уверен. Но в общем тоже имеет свой порядковый номер. Обозначение .NET это просто рекламный ход.

[GBAXA]

Большое спасибо. Очень помогли.
Delphi всетаки ругаетса

type

TM= array of array of extended;

TMatrix = class
  private
    FCol: integer;
    FRov: integer;
    FMatrix: TM;
    procedure SetCol(const Value: integer);
    procedure SetRov(const Value: integer);
  protected
  public
    property Matrix: TM read FMatrix write fMatrix;
    property Col:integer read FCol write SetCol;
    property Rov:integer read FRov write SetRov;
    constructor Create(c,r:integer);
    class operator Add(a, b: TMatrix): TMatrix;//ошьібка
end;

воттакая ошьібка [DCC Error] MatrixMod.pas(21): E2123 PROCEDURE, FUNCTION, PROPERTY, or VAR expected

[Utkin]

Как ты реализовал саму функцию Add?

[GBAXA]

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

Как ты реализовал саму функцию Add?

class operator TMatrix.Add(a, b: TMatrix): TMatrix;
var i,j:integer;
begin
if (a.col=b.col) and (a.Rov=b.Rov) then begin
  for I := 0 to fCol - 1 do
    for j := 0 to fRov - 1 do begin
       result[i,j]:=a[i,j]+b[i,j];
    end;
end  else result:=a;

end;

НО какая разница оно вить ругаєтса еще при обявлении?

[Utkin]

У тебя Matrix должен быть record.

[GBAXA]

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

У тебя Matrix должен быть record.

В обьічном не катит даже с record-ом. А вот в Delphi.NET пошло.
Теперь придетса делать DLL на .NET.
Как думаете может прокатить???