может и можно, но на скорую руку не придумал как
Вот, вот так можно поиграться: program test; {$mode delphi} type Double2 = type Double; procedure d(v: Double); overload; begin WriteLn('d'); end; procedure d(v: Double2); overload; begin WriteLn('d2'); end; var a: Double2; b: Double; begin d(a); d(b); d(a-b); d(b-a); ReadLn; end. mode delphi: d2 d d d mode objfpc: d2 d d2 d D12 не даёт компилить
у меня в XE7 такео не компилится
Обсуждают сегодня