testdelphinetdottedtype.out

来自「格式化源码的最新板」· OUT 代码 · 共 43 行

unit testdelphinetdottedtype;

interface

type
  tmyclass = class
  public
    msexceltype: system.type;
    objvalue:    system.object;
  end;

  tmyclass2 = class
  private
    objvalue:    system.object;
    msexceltype: system.type;
  public
    function getobject(mytype: system.type): TObject;
    procedure catchdottedexception;
  end;

implementation

uses system.runtime.remoting;

procedure tmyclass2.catchdottedexception;
begin
  try
  except
    on exp: system.runtime.remoting.remotingexception do
    begin
    end;
  end;
end;

function tmyclass2.getobject(mytype: system.type): TObject;
begin
  objvalue := system.object(convert.todouble(console.readline));
  msexceltype := system.type.gettypefromprogid('Excel.Application', True);
  Result := nil;
end;

end.