testmixedmodecaps.obs

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

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.