Delphi控件源码

开发平台：

Delphi

TestClass.pas：源码内容

							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.
 

						