Перегрузка стандартных действий

[Alt]

Где-то слышал, что в последних версиях Делфей можно перегружать плюс, минус, и т.д., просьба пролить свет на этот вопрос!

[XeruH]

Тоже слышал... Правда сам работаю с 7 ... Также прошу пролить свет )

[veniside]

В принципе, там всё просто. Сначал городим нечто вроде:

type
  myIntString = record
    //
    r_value: string;
    //
    class operator Add(v1: myIntString; v2: Integer): myIntString;
    class operator Add(v1: myIntString; v2: myIntString): myIntString;
    class operator Implicit(v: Integer): myIntString;
    class operator Implicit(const v: string): myIntString;
    class operator Implicit(v: myIntString): Integer;
    class operator Implicit(v: myIntString): string;
    class operator Explicit(v: myIntString): Integer;
    class operator Inc(v: myIntString): myIntString;
    class operator Subtract(v1: myIntString; v2: Integer): myIntString;
    class operator Subtract(v1: myIntString; v2: myIntString): myIntString;
  end;


{ myIntString }

// --  --
class operator myIntString.Add(v1: myIntString; v2: Integer): myIntString;
begin
  result := Integer(v1) + v2;  // result := Implicit(Explicit(v1):Integer + Implicit(v2):Integer):myIntString;
end;

// --  --
class operator myIntString.Add(v1: myIntString; v2: myIntString): myIntString;
begin
  result := v1 + Integer(v2);	// result := v1 + Explicit(v2):Integer;
end;

// --  --
class operator myIntString.Explicit(v: myIntString): Integer;
begin
  result := v;	// result := Implicit():Integer;
end;

// --  --
class operator myIntString.Implicit(v: Integer): myIntString;
begin
  result.r_value := IntToStr(v);
end;

// --  --
class operator myIntString.Implicit(v: myIntString): Integer;
begin
  result := StrToInt(v.r_value);
end;

// --  --
class operator myIntString.Implicit(v: myIntString): string;
begin
  result := v.r_value;
end;

// --  --
class operator myIntString.Inc(v: myIntString): myIntString;
begin
  result := v + 1; // result := Add(v, 1): myIntString;
end;

// --  --
class operator myIntString.Subtract(v1: myIntString; v2: Integer): myIntString;
begin
  result := Integer(v1) - v2;
end;

// --  --
class operator myIntString.Subtract(v1, v2: myIntString): myIntString;
begin
  result := v1 - Integer(v2);
end;

// --  --
class operator myIntString.Implicit(const v: string): myIntString;
begin
  result.r_value := v;
end;

После чего можно сочинять смешной код в духе вижуал бейсика:

var
  r1, r2: myIntString;
  i: Integer;
begin
  r1 := 1;
  r2 := '2';
  //
  r1 := r1 + r2 - '6'; // r1 := Substract(Add(r1, r2): myIntString, Implicit('6'):myIntString);
  //
  inc(r1);
  //
  i := r2 + 3 - r1; // i := Implicit(Substract(Add(r2, 3):myIntString, r1)): Integer;
end;

[veniside]

А если добавить немного анонимности:

type
  p = reference to function(v: myIntString): Integer;

// -- general recursive myIntString multiplier
function process(v: myIntString; proc: p): Integer;
begin
  if (0 = Integer(v)) then
    result := 1
  else
    result := Integer(v) * process(proc(v), proc);
end;

то можно слегка удивить преподавателей. Вычисление факториала числа 10:

r2 := '10';
factorial := process(r2, function(v: myIntString): Integer begin result := v - 1; end));

А тут вычисляется ряд N*(N/2)*(N/4)*(N/8)...:

somevalue := process(N, function(v: myIntString): Integer begin result := Integer(v) shr 1; end));

[Alt]

Названия функций Add, Implicit, Explicit, Inc, Subtract - фиксированы?

[GunSmoker]

F1.

[Alt]

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

F1.

У меня не работает справка. За ссылку спасибо.