testdelphinetunsafe.out

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

unit TestDelphiNetUnsafe;

interface

{$UNSAFECODE ON}

uses
  SysUtils;

type
  /// TSealedClass comment
  TUnsafeClass = class
    function F_GetText: integer; unsafe;
  end;

implementation

{ TUnsafeClass }

function TUnsafeClass.F_GetText: integer;
begin

end;

end.