TestClass.pas
上传用户:fh681027
上传日期:2022-07-23
资源大小:1959k
文件大小:0k
源码类别:

Delphi控件源码

开发平台:

Delphi

  1. unit TestClass;
  2. interface
  3. type
  4.   TTest = class
  5.   protected
  6.     ProtectedData: Integer;
  7.   public
  8.     PublicData: Integer;
  9.     function GetValue: string;
  10.   end;
  11. implementation
  12. uses
  13.   SysUtils;
  14. function TTest.GetValue: string;
  15. begin
  16.   Result := Format ('Public: %d, Protected: %d',
  17.     [PublicData, ProtectedData]);
  18. end;
  19. end.
  20.