IXMLStockListType = interface; IXMLStockType = interface; { IXMLStockListType } IXMLStockListType = interface(IXMLNodeCollection) [''''{F56A36C4-4014-11D5-8B76-E593B0087905}''''] { Property Accessors } function Get_Stock(Index: Integer): IXMLStockType; { Methods & Properties } function Add: IXMLStockType; function Insert(const Index: Integer): IXMLStockType; property Stock[Index: Integer]: IXMLStockType read Get_Stock; default; end; { IXMLStockType } IXMLStockType = interface(IXMLNode) [''''{F56A36C5-4014-11D5-8B76-E593B0087905}''''] { Property Accessors } function Get_Exchange: WideString; function Get_Name: WideString; function Get_Price: WideString; function Get_Symbol: WideString; function Get_Volume: WideString; procedure Set_Exchange(Value: WideString); procedure Set_Name(Value: WideString); procedure Set_Price(Value: WideString); procedure Set_Symbol(Value: WideString); procedure Set_Volume(Value: WideString); { Methods & Properties } property Exchange: WideString read Get_Exchange write Set_Exchange; property Name: WideString read Get_Name write Set_Name; property Price: WideString read Get_Price write Set_Price; property Symbol: WideString read Get_Symbol write Set_Symbol; property Volume: WideString read Get_Volume write Set_Volume; end; { Forward Decls } TXMLStockListType = class; TXMLStockType = class; { TXMLStockListType } TXMLStockListType = class(TXMLNodeCollection, IXMLStockListType) protected { IXMLStockListType } function Get_Stock(Index: Integer): IXMLStockType; function Add: IXMLStockType; function Insert(const Index: Integer): IXMLStockType; public procedure AfterConstruction; override; end; { TXMLStockType } TXMLStockType = class(TXMLNode, IXMLStockType) protected { IXMLStockType } function Get_Exchange: WideString; function Get_Name: WideString; function Get_Price: WideString; function Get_Symbol: WideString; function Get_Volume: WideString; procedure Set_Exchange(Value: WideString); procedure Set_Name(Value: WideString); procedure Set_Price(Value: WideString); procedure Set_Symbol(Value: WideString); procedure Set_Volume(Value: WideString); end;
當Microsoft不再推出VB/VC原生視窗開發工具,而Power Builder等其他視窗開發工具也逐漸被淘汰出視窗平台之際,Delphi 6可以說是唯一最新的原生視窗開發工具,也是最好的原生視窗開發工具。如果你仍然需要在視窗下開發應用系統,或是需要使用/整合最新的資訊技術,那麼Delphi 6仍然是非常值得購買和昇級的開發工具。不過希望在Borland全力發展Linux平台上的RAD工具時,不要忘記了視窗平台仍然有許多的程式師需要最好的視窗開發工具,Borland仍然需要投注相當的資源和人力繼續發展未來版本的Delphi。Edited by - Gordon Li on 06/01/2001 18:43:15
相关帖子:
李维:.net vs delphi 6
delphi6 爆发还是灭亡?
李维:我的回忆和一些有趣的事
看IT风云变幻,宝兰与微软背后的故事,
李维:2001 年軟體界的巨星 - Kylix
看宝兰, 一年之间连续推出kylix1.0 ,interbase6.0, delphi6,jbuilder5 ,c++builder6也不日即出,敬请关注宝兰2001年与微软对绝的杀手锏kylix
陈宽达: 遊戲程式設計初學者常遇之疑問
明修栈道,暗渡陈仓,陈宽达点指开发工具
上一页 [1] [2]
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18