Перевести встроенный тип данных в свой одним словом

[Patsukin]

Создал тип TCoord с данными X и Y в Real, нужен механизм перевода этого типа в TPoint одним словом - по принципу StrToInt, FloatToInt и пр. Написал команду скажем TCoordToTpoint, и переводишь строкой TCoordToTpoint(a).
Если процедура работает с Integer с такими параметрами:

Procedure Qwerty(var a,b,c,d:Integer);

то в нее можно без проблем передать Real или Str, написав так:

procedure ABC;
var
...
begin
Qwerty(x,y,floattoint(z),strtoint('123'));

Вот именно этот метод перевода типов одним словом меня и интересует, хочу написать свой если это возможно.

[Аватар]

Ну, а свой тип данных кто будет показывать?

FloatToInt

Это что за монстрик?

[Patsukin]

http://tmaplatform.ru/page/help/api/...ert/floattoint

[Аватар]

Угу. В делфи для этого trunc есть. И ни каких родных FloatToStr

[min@y™]

Создал тип TCoord с данными X и Y в Real, нужен механизм перевода этого типа в TPoint

Ой, да ладно! Я тя умоляю! Загляни в модуль types.pas. Там много вкусного.

  TPointF = record
    class function Create(const AX, AY: Single): TPointF; overload; static; inline;
    class function Create(const APoint: TPoint): TPointF; overload; static; inline;
    class operator Add(const APoint1, APoint2: TPointF): TPointF;
    class operator Subtract(const APoint1, APoint2: TPointF): TPointF;
    class operator Equal(const APoint1, APoint2: TPointF): Boolean;
    class operator NotEqual(const APoint1, APoint2: TPointF): Boolean;
    class operator Implicit(const APoint: TPoint): TPointF;
    class operator Negative(const APoint: TPointF): TPointF;
    class operator Multiply(const APoint1, APoint2: TPointF): TPointF;
    class operator Multiply(const APoint: TPointF; const AFactor: Single): TPointF;
    class operator Multiply(const AFactor: Single; const APoint: TPointF): TPointF;
    class operator Divide(const APoint: TPointF; const AFactor: Single): TPointF;
    class function PointInCircle(const Point, Center: TPointF; const Radius: Integer): Boolean; static; inline;
    class function Zero: TPointF; inline; static;
    function Distance(const APoint: TPointF): Single;
    function CrossProduct(const APoint: TPointF): Single;
    function DotProduct(const APoint: TPointF): Single; inline;
    procedure Offset(const APoint: TPointF); overload; inline;
    procedure Offset(const ADeltaX, ADeltaY: Single); overload; inline;
    procedure Offset(const APoint: TPoint); overload; inline;
    procedure SetLocation(const X, Y: Single); overload; deprecated 'Use ":=" assignment instead';
    procedure SetLocation(const P: TPointF); overload; deprecated 'Use ":=" assignment instead';
    procedure SetLocation(const P: TPoint); overload; deprecated 'Use ":=" assignment instead';
    function Subtract(const Point: TPointF): TPointF; overload; deprecated 'Use TPointF.Offset instead';
    function Subtract(const Point: TPoint): TPointF; overload; deprecated 'Use TPointF.Offset instead';
    function Add(const Point: TPointF): TPointF; overload; deprecated 'Use TPointF.Offset instead';
    function Add(const Point: TPoint): TPointF; overload; deprecated 'Use TPointF.Offset instead';
    function Scale(const AFactor: Single): TPointF; deprecated;
    function EqualsTo(const Point: TPointF; const Epsilon: Single = 0): Boolean;
    function IsZero: Boolean;
    function Ceiling: TPoint; // <------------------------------------------
    function Truncate: TPoint; // <------------------------------------------
    function Round: TPoint; // <------------------------------------------
    function Normalize: TPointF;
    function Length: Single;
    function Rotate(const AAngle: Single): TPointF;
    function Reflect(const APoint: TPointF): TPointF; inline;
    function MidPoint(const APoint: TPointF): TPointF; inline;
    function AngleCosine(const APoint: TPointF): Single;
    function Angle(const APoint: TPointF): Single;
    case Integer of
      0: (V: TPointFType;);
      1: (X: Single;
          Y: Single;);
  end;

[northener]

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

Создал тип TCoord с данными X и Y в Real, нужен механизм перевода этого типа в TPoint одним словом - по принципу StrToInt, FloatToInt и пр. Написал команду скажем TCoordToTpoint, и переводишь строкой TCoordToTpoint(a).
Если процедура работает с Integer с такими параметрами:

Procedure Qwerty(var a,b,c,d:Integer);

то в нее можно без проблем передать Real или Str, написав так:

procedure ABC;
var
...
begin
Qwerty(x,y,floattoint(z),strtoint('123'));

Вот именно этот метод перевода типов одним словом меня и интересует, хочу написать свой если это возможно.

Этот "метод перевода" называется функция (function). Пиши, какие проблемы?