📄 testbogustypes.obs
字号:
unit testbogustypes;interface type fred=class public procedure word;procedure dword
;function tcomponent(ps:string):string;end;procedure byte;function ansichar(pi:integer
):string;const int64='Hello world';implementation procedure byte;begin end;function
ansichar(pi:integer):string;begin byte;result:='';end;procedure fred.dword;begin
ansichar(3);end;function fred.tcomponent(ps:string):string;begin result:='';end;procedure
fred.word;begin dword;tcomponent(ansichar(42));end;end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -