testclasslines.out

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

unit testclasslines;

interface

type
  tsomeclass = class
    class function dink: boolean;
  end;

implementation

class function tsomeclass.dink: boolean;
begin
  Result := False;
end;

end.