摘要：
//命令的接受者 unit uReceiveObject; interface type TLight = class(TObject) public procedure Open; procedure Off; end; TGarageDoor = class(TObject) public procedure Up; procedure ... 阅读全文
posted @ 2009-05-02 22:38 都市牧羊 阅读(1080) 评论(0) 推荐(0) 编辑