testmixedmodecaps.out

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

unit testmixedmodecaps;

interface

type
  tmixedmode = class(TObject)
  private
    fisafecall: integer;
  public
    property safecall: integer Read fisafecall Write fisafecall;
    procedure Read; safecall;
    procedure Write; safecall;
  end;

implementation

procedure tmixedmode.Read;
begin
end;

procedure tmixedmode.Write;
begin
end;

end.