role.pas

《Delphi深度历险》附书源码 Delphi学习书本

unit role;

interface

uses Windows, SysUtils, Graphics, Classes, util;

type
  TDirection = (drUp, drDown, drLeft, drRight);
  
  TRole = class
  private
    FX, fy: Integer; // à︹畒夹
    FDirection: TDirection; // ︽秈よ