TestClass.pas
资源名称:delphi.rar [点击查看]
上传用户:fh681027
上传日期:2022-07-23
资源大小:1959k
文件大小:0k
源码类别:
Delphi控件源码
开发平台:
Delphi
- unit TestClass;
- interface
- type
- TTest = class
- protected
- ProtectedData: Integer;
- public
- PublicData: Integer;
- function GetValue: string;
- end;
- implementation
- uses
- SysUtils;
- function TTest.GetValue: string;
- begin
- Result := Format ('Public: %d, Protected: %d',
- [PublicData, ProtectedData]);
- end;
- end.