role.pas

来自「《Delphi深度历险》附书源码 Delphi学习书本」· PAS 代码 · 共 13 行

unit role;

interface

uses Windows, SysUtils, Graphics, Classes, util;

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