TRational

type TRational = class

protected

  procedure DenominatorZeroError;

  procedure DivisionByZeroError;

  procedure Simplify;

  procedure SetDenominator();

  function GetAsString;

  function GetAsStringU;

  procedure SetAsString();

  procedure SetAsStringU();

  function GetAsFloat;

  procedure SetAsFloat();

public

  constructor Create();

  property Numerator: Int64; [rw]

  property Denominator: Int64; [rw]

  property AsString: string; [rw]

  property AsStringU: UnicodeString; [rw]

  property AsFloat: MFloat; [rw]

  function Duplicate;

  procedure Assign();

  procedure AssignZero;

  procedure AssignOne;

  function IsEqual();

  function IsZero;

  function IsOne;

  procedure Add();

  procedure Subtract();

  procedure Negate;

  procedure Abs;

  function Sgn;

  procedure Multiply();

  procedure Divide();

  procedure Reciprocal;

  procedure Sqrt;

  procedure Sqr;

  procedure Power();

  procedure Exp;

  procedure Ln;

  procedure Sin;

  procedure Cos;

end;

TRational

TObject