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.
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.