文档访问信息层的公共变量

atiger

在信息层的public定义了一个公共变量 lStr
unit BBXX;

interface

uses
  Business.System, Business.Model, Business.Data;

type
  TBBXX = class(TInfo)
   ...
  private
    {private declarations}
  public
  lStr:String;
    {public declarations}
  end;

implementation
...
end.


在信息下的文档或者窗体上访问
TBBXX (InfoBroker.Info).lStr:=' 给 lStr 访问值';