灌水:Delphi 程序员版的老婆生日怎么过?(剽窃于程序员大本营 stamf(stamf))(0分)

  • 主题发起人 主题发起人 reedblue
  • 开始时间 开始时间
R

reedblue

Unregistered / Unconfirmed
GUEST, unregistred user!
回复人: ( ) 信誉:100 2002-08-05 13:23:00 得分:0

begin

生日蛋糕.买;
生日蛋糕.蜡烛.插上;
生日蛋糕.蜡烛.点燃;
老婆.许愿;
生日蛋糕.蜡烛.吹;
if 老婆.年龄<=25 then

begin
SendMessage(老婆.handle,WM_Happybirthday,0,0);
self.Face.眼睛 := 弯;
self.Face.嘴 := 裂开;
self.Body.手 := 张开;
self.笑;
self.拥抱;
self.Face.嘴 := 老婆.Face.嘴;
self...:= 老婆.........(以下省略 n 行代码,属于商业机密。。。。。);
end;
if (老婆.年龄>25) and (老婆.年龄<=40) then
begin
SendMessage(老婆.handle,WM_Happybirthday,0,0);
ShowWindow(礼物.handle);
客人.ShowModal;
餐厅.桌子.Count := 10;
客人.腿.坐下;
end;
if (老婆.年龄>40) and (老婆.年龄<=100) then
begin
客人.Showmodal;
SetWindowPos(老婆.handle,厨房,0,0,0,0,WM_Cooking);
while 客人.吃饭中do
begin
客人.吃饭中 := 饭菜.EOF;
end;
老婆.洗碗;
end;
if (老婆.年龄>100) then
begin
if (self.living = true) and (老婆.living = true) then
begin
客人.恭喜恭喜;///金婚纪念阿;
.......
end;
end;
end.


 

餐厅.桌子.Count := 10;// 十个桌子呀?凳子多少呀?
客人.腿.坐下;//腿坐下,那屁股呢?
:)
哈哈
 
鲜花、蛋糕、大鸡腿,一样也不能少。
 
[:D]
very good
 
self...:= 老婆.........(以下省略 n 行代码,属于商业机密。。。。。);
是什么东东?
if 老婆.Clothes.Clear then
if Self.body.Showmodal=mrok then
SendMessage(老婆.handle,WM_bodyEnter,0,0);
晕倒~~~~~~~


 
forgot2002好色呀[:D][:D]
 
拉出去,病毒发作。
 
真开心!
我未来的老婆的生日已经过了。
还有,我下个月结婚,各位送点什么?
 
一打。。。
 
啊??? forgot2002, 你你你....你是从哪儿拿到源码的??????????????
你可是有侵犯商业机密的嫌疑哟。。。。。。。
 
呵呵~~~~~~
self.Face.嘴 := 裂开;
//啊~嘴都裂开了,那血流如河啊,赶快拿碗接着,再到厨房加个“*血豆腐”去……
[:)]
 
什么乱七八糟的,为什么没有FOR循环
 
聊以一笑!
 
self...:= 老婆.........(以下省略 n 行代码,属于商业机密。。。。。);
注释不用//,今年高程考试零分!
 
// 呵呵呵,有意思。
if 老婆.年龄<=25 then

begin
SendMessage(老婆.handle,WM_Happybirthday,0,0);
self.Face.眼睛 := 弯;
self.Face.嘴 := 裂开;
self.Body.手 := 张开;
self.笑;
self.拥抱;
self.Face.嘴 := 老婆.Face.嘴;
生日蛋糕.蜡烛.free;
beep;
// 儿童不宜
老婆.儿子:= self.儿子 ;
end;
 
那请问如果是DELPHI程序员的老公过生日呢?请指教[:)]
 
后退
顶部