testdelphinetkeywords.out

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

unit testdelphinetkeywords;

interface

implementation

procedure delphinetkeywordabuse;
var
  operator: integer;
  helper:   string;
  sealed, static: char;
begin
  operator := 12;
  sealed   :=
    'A';
  static   := 'b';
  helper   := sealed + static;
  Inc(operator);
end;

end.