发信人: jackey.wu(笑熬浆糊)
整理人: xiange(2002-08-29 15:39:18), 站内信件
|
program 新年快乐(2002年);
uses ITMAN的朋友, Dialogs;
const ITMAN= 'http://fe4.gz.163.com docidx?b=itman';
var
ITMAN的朋友: TITMAN的朋友;
begin
ITMAN的朋友:= TITMAN的朋友.Create(2002年);
try
ITMAN的朋友.clear(不愉快);
ITMAN的朋友.add(好心情);
ITMAN的朋友.相聚(ITMAN);
If ITMAN的朋友.sex='男孩' then
Include(ITMAN的朋友.特征,[更潇洒,更威猛])
else
Include(ITMAN的朋友.特征,[更温柔,更体贴]);
case ITMAN的朋友.state of
单身:ITMAN的朋友.找到自己的另一半;
恋爱:ITMAN的朋友.早日走向婚姻的殿堂;
已婚:
begin
ITMAN的朋友.更恩爱;
ITMAN的朋友.生个小BB;
end;
end;
ITMAN的朋友.开开心心;
ITMAN的朋友.享受生活;
ITMAN的朋友.多多联系;
except
ShowMessage('非法操作');
end;
if ITMAN的朋友.回帖 then
ITMAN的朋友.共享(快乐)
else
ITMAN的朋友.走好;
ITMAN的朋友.Free;
end.
---- ############################
homepage: http://hbird.myrice.com
bbs: http://hbird.xilubbs.com
mail: [email protected]
############################
|
|