首頁 » 觀看留言 »


留言主題:
hi,好久不見了,最近可好嗎?
留言人:
jackeywan URL
留言內容:

你好呀,最近都忙些什么呢?
你的blog是越來越豐富了呀~
訪問的人也很多了耶~
嗯,順便告訴你一下,我在新浪也開了個blog,嘿嘿,我想把它做成一個電子書的集中下載中心,最近我也在努力豐富中,有時間就去看看吧,里邊也有你喜歡的那方面的書籍的喲~
呵呵
地址就是:http://blog.sina.com.tw/jackeywan/
記得來看看喲·~~ 

留言時間:2007-07-21 01:11:08 留言IP:220.167.25.245
留言主題:
MIB廣告金即將於2/14開放領款,請儘速設定撥款方式!
留言人:
新浪部落
留言內容:

Dear 部落長
感謝參加MIB部落客淘金活動,此活動即將接近尾聲,廣告金也即將於2007.02.14起開始領取,在領取前,請部落長前往MIB管理系統,設定相關資料!(倘若已設定完成,請無須理會此留言!)
MIB管理系統:http://blogger.sina.com.tw/
領款步驟說明:http://blog.sina.com.tw/blog_adm/article.php?pbgid=25101&entryid=314931

敬祝 金豬年大發財!

新浪部落 敬上

留言時間:2007-01-26 18:59:25 留言IP:10.1.1.1
留言主題:
MIB廣告金即將於2/14開放領款,請儘速設定撥款方式!
留言人:
新浪部落
留言內容:

Dear 部落長
感謝參加MIB部落客淘金活動,此活動即將接近尾聲,廣告金也即將於2007.02.14起開始領取,在領取前,請部落長前往MIB管理系統,設定相關資料!(倘若已設定完成,請無須理會此留言!)
MIB管理系統:http://blogger.sina.com.tw/
領款步驟說明:http://blog.sina.com.tw/blog_adm/article.php?pbgid=25101&entryid=314931

敬祝 金豬年大發財!

新浪部落 敬上

留言時間:2007-01-26 18:49:59 留言IP:10.1.1.1
留言主題:
新浪送上滿滿的祝福!
留言人:
新浪部落
留言內容:

親愛的部落長
感謝對新浪部落的支持與鼓勵!
新浪全體員工送上滿滿的祝福,祈求上天賜福予您!<領取卡片
Merry Christmas & Happy New Year~

新浪部落

留言時間:2006-12-23 03:03:02 留言IP:10.1.1.1
留言主題:
新浪誠邀部落長加入MIB部落客淘金活動
留言人:
新浪部落 URL
留言內容:

親愛的部落長
感謝對新浪部落的支持!
新浪始終把大家視為好朋友,只要發現好東西,一定會與好朋友分享!
「MIB部落客淘金活動」,目的在於讓新浪部落長在苦心經營之下,同時也能創造收益的好東西!11/13第一波廣告即將上線,已有部落長紛紛加入,趕緊加入行列囉!>>>活動頁面
大家也許會擔心廣告內容是否優質?當然新浪業務團隊在保護新浪部落長的前提下,必會慎選廣告商,為大家嚴格把關,謝絕關於賭博、色情、煙酒以及政治色彩的廣告!>>>廣告範本

(若已加入MIB部落客淘金活動的部落長,在此感謝支持活動!並請勿重複加入!)

新浪部落

留言時間:2006-11-07 15:19:43 留言IP:10.1.1.1
留言主題:
看你的文章真是受益颇多!
留言人:
homejun URL
留言內容:

不知能不能交换友情链?,我的blog是http://hi.baidu.com/homejun

留言時間:2006-07-30 10:46:19 留言IP:221.195.162.14
留言主題:
相見
留言人:
willy URL
留言內容:

非常高興認識你!!!

留言時間:2006-07-15 19:07:57 留言IP:218.162.110.142
留言主題:
那些基本的资料,我也有一些
留言人:
cycil
留言內容:

当下,就是希望了解更多的关于的ECO的资料,web上搜索的已经不能满足了,况且在上面搜索的也太辛苦了。。。。。

留言時間:2006-05-13 16:26:43 留言IP:59.39.229.239
留言主題:
ECO 2G資料
留言人:
ATEIN
留言內容:

其實到現在快近3G了,包括了自已所寫及實作的資料及範例
但大部份1G多的資料,在網站國內外便可輕易搜集到了,而這些是較基本工的技術,因此可以先看,至於後1G多的部,大部份是實例的案例及實作範圍。程度較深。入門者較不宜觀看。
之前曾開放讓FTP 下載,但被有心人士為商業用途,賣到國內外的書到隨附光碟及文章內的篇節,因此不再提供大眾下載。

留言時間:2006-05-07 19:04:38 留言IP:219.68.172.114
留言主題:
听讲,思坦有2G多的关于ECO的资料,可否共享出来,大家分享。
留言人:
cycil110623@sina
留言內容:

听讲,思坦有2G多的关于ECO的资料,可否共享出来,大家分享。感激睇零

留言時間:2006-05-07 11:44:26 留言IP:125.93.245.103
留言主題:
ECO-OCL
留言人:
板主
留言內容:

Delphi and Custom OCL Operations
I always liked TStringList.CommaText, so I decided to try and implement a “commaText“ custom OCL Operation for Collections... I couldn't believe how easy it was going to be until I tried: here it is:


unit Borland.Eco.Ocl.Support.CommaText;

interface
uses
Borland.Eco.Ocl.Support,
Borland.Eco.ObjectRepresentation,
Borland.Eco.UmlRt,
Borland.Eco.Handles,
Borland.Eco.Services,
Borland.Eco.Subscription;

type
CommaText = class (OclOperationBase)
strict protected
procedure Init; override;
public
constructor Create (ES : EcoSpace);
procedure Evaluate(oclParameters: IOclOperationParameters); override;
class procedure Install (ES: EcoSpace);

strict private
MyEcoSpace: EcoSpace;
end;

implementation

{ CommaText }

constructor CommaText.Create(ES: EcoSpace);
begin
inherited Create;
//will be necessary for evaluation of the default string representation of collection
//elements
MyEcoSpace := ES;
end;

procedure CommaText.Evaluate(oclParameters: IOclOperationParameters);
var
ElemCol: IElementCollection;
Elem: IElement;
Res : String;
OclService: IOclService;
SB: StringBuilder;
begin
inherited;
//gimme the collection
ElemCol := oclParameters.Values[0].Element.GetAsCollection;
//gimme the OclService as welll
OclService := MyEcoSpace.GetEcoService(typeof(IOclService)) as IOclService;
//for each element in the collection, get me the default string representation
SB := StringBuilder.Create;
for Elem in ElemCol do
SB.Append(OclService.Evaluate(Elem,'self.AsString').AsObject.ToString+',');
Res := SB.ToString;
if Length(Res)>0 then
Delete (Res,Length(Res),1);
//return Res as a string
oclParameters.Result.SetOwnedElement(Support.CreateNewConstant(Support.StringType,Res));
end;

procedure CommaText.Init;
var
OclParams : array of IOclType;
begin
//tell the framework I have only one parameter
SetLength (OclParams,1);
//the parameter is an ObjectList (collection)
OclParams[0] := Support.ObjectListType;
//inform the operation name, its parameters, and result type
InternalInit ('commaText',OclParams,Support.StringType);
end;

class procedure CommaText.Install(ES: EcoSpace);
var
OclService: IOclService;
begin
//gimme the OclService
OclService := ES.GetEcoService(typeof(IOclService)) as IOclService;
//install the new operation
OclService.InstallOperation(CommaText.Create(ES));
end;

end.
Here's how you install it:

CommaText.Install(EcoSpace);


Here's how to use it:
Customer.Create(EcoSpace).name := 'Daniel';
Customer.Create(EcoSpace).name := 'John';
Customer.Create(EcoSpace).name := 'Jesper';
Customer.Create(EcoSpace).name := 'Jan';
Customer.Create(EcoSpace).name := 'Jonas';
ExpressionHandle1.Expression := 'Customer.allInstances->commaText';
MessageBox.Show(ExpressionHandle1.Element.AsObject.ToString);

Have fun!

Oh, by the way... it doesn't work at design time yet... stay tuned. :)

留言時間:2006-03-13 09:06:29 留言IP:219.68.172.44
1