s2.tools.ts2data.pas

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

unit S2.Tools.TS2Data;

interface

uses
  S2.Tools.TS2Object;

type
  TS2Data = class(TS2Object)
  public
    function GetObjectName: string; override;
    function GetCaption: string; override;
    function ToString: string; override;
    function IsActive: Boolean; override;
    function IsValid: Boolean; override;    
  end;

implementation

{ TS2Data }

function TS2Data.GetCaption: string;
begin
  Result := ClassName;
end;

function TS2Data.GetObjectName: string;
begin
  Result := ClassName;
end;

function TS2Data.IsActive: Boolean;
begin
  Result := True;
end;

function TS2Data.IsValid: Boolean;
begin
  Result := True;
end;

function TS2Data.ToString: string;
begin
  Result := ClassName;
end;

end.