s2.tools.ts2object.pas

来自「轉載的程序應用框架」· PAS 代码 · 共 21 行

unit S2.Tools.TS2Object;

interface

uses
  S2.Core.IS2Object;

type
  TS2Object = class(TInterfacedObject, IS2Object)
  public
    function GetObjectName: string; virtual; abstract;
    function GetCaption: string; virtual; abstract;
    function ToString: string; virtual; abstract;
    function IsActive: Boolean; virtual; abstract;
    function IsValid: Boolean; virtual; abstract;  
  end;

implementation

end.