控件属性问题 解决马上给分

Question

http://www.delphibbs.com/delphibbs/dispq.asp?lid=3097262

Answer 1

To fisheryj (伤心小鱼):
    你的问题可能不止一个。比如，procedure ReadData;怎么会是这样的写法？不应该是procedure TIOTALK.ReadData;吗？
    还有PROCEDURE CONNECT;不应该是procedure TIOTALK.CONNECT;其他的我也没有看出什么问题。你先把刚才的部分改正一下。

Answer 2

type
  TIOTALK = class(TComponent)
  Private
    { 私有属性定义}
    FSendData:string;
    FReadData :string;
         {端口地址,即数据口地址}
    FPortAddr:Word;
    FUNCTION  HexToInt(chr:char):integer;
  protected
    { Protected declarations }
    Connected:boolean;
  public
    constructor Create(AOwner:TComponent);override;
    destructor  Destroy;override;  
  function OpenPortTalk:boolean;
  procedure ClosePortTalk;
  procedure outportb(PortAddress:word;byte1:byte);
  function inportb(PortAddress:word):byte;  function StartPortTalkDriver:boolean;
  procedure InstallPortTalkDriver;
  published
    Property Port:Word read FportAddr write FportAddr default $378;
 //   Property SendData: string read FSendData write FSendData ;
  end;

Answer 3

To fisheryj (伤心小鱼):
    大家都在给你出谋划策,你怎么自己不露面呢?

Answer 4

以前进行开发的时候还没有想到 protected private....
等等不同和作用

Answer 5

让外部单元访问则放在public
否则放在 private里面