testdelphinetunsafe.out

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

unit testdelphinetunsafe;

interface {$UNSAFECODE ON}

uses SysUtils;

type
  tunsafeclass = class
    function f_gettext: integer; unsafe;
  end;

implementation

function tunsafeclass.f_gettext: integer;
begin
end;

end.