Unit2.pas
上传用户:yjb1804
上传日期:2021-01-30
资源大小:3105k
文件大小:0k
源码类别:

Email服务器

开发平台:

Delphi

  1. unit Unit2;
  2. interface
  3. type
  4.   TSuperObject = class(TObject)
  5.   public
  6.     function DoSomethingSuper: boolean;
  7.   end;
  8. implementation
  9. { TSuperObject }
  10. function TSuperObject.DoSomethingSuper: boolean;
  11. begin
  12.   // do something ...
  13.   Result := (Random < 0.5);
  14. end;
  15. end.
  16.