前两天在餐馆吃饭遇到一个女孩子,看来我是对她有点心动的感觉,今天吃饭又遇到了,但就是不知道怎么和她搭话,看在都是编程人员的面子上就来帮我出个点子吧!!!!
解决方案 »
- 自动编号问题,如何产生这样的编号?
- 事物处理。。。。。。。。。。。。。。。。。。。
- 问一下,什么方法可以把字符串"猴子"变为"%BA%EF%D7%D3"?
- 送分讨论请教水晶报表(Crystal report9组件在Delphi7中的应用
- 为什么我预览过程中定义变量出错?
- 链接问题(在线等待)
- 我想在OLE上放一个image,但image无法保持在最前面导致无法实现在image上画画?怎么办。在线。100分
- 怎样在stringgrid中显示所查询的内容?
- StringGrid字体颜色问题
- delphi中做数据库,请问有没有象dbf数据库那样的记录号
- delphi的什么类(非界面类)可以接收windows消息?
- 高手!!快来呀!!!!!!
var GG:TGG;MM:TMM;Mask:TMask;Weapon:TWeapon;
begin
Result:=Nil;
GG:=TGG.Create(餐馆);
MM:=TMM.Create(餐馆);
GG.Locate('这里写你的名字');//定位哪个GG
MM.Locate('这里写她的名字');//定位哪个MM
while true do//不追到誓不罢休
begin
try//做好心理准备
GG.暗送秋波(MM);//权力突击
except//不好~~~~~~
on 你神经病啊 do
begin
GG.闪人;
FreeAndNil(GG);
FreeAndNil(MM);
exit;
end;
on 没有反应 do
begin
continue;//继续眉目传情
end;
on 她回过头来原来不堪入目
begin
Mask:=TMask.Create(GG);//建立一个新面具
Mask.LoadFromFile('选择一个孙悟空的头像');
GG.Mask:=Mask;
GG.变身;
try
MM.Notice(GG);//让她注意你
except
on MM吓晕了 do
begin
GG.闪人;
FreeAndNil(MM);
FreeAndNil(Mask);
FreeAndNil(GG);
Exit;//离开餐馆把
end;
end;
end;
on 她喊了她的男朋友过来吃饭 do
begin
Weapon:=AK47.Create(GG);//创建一把AK47
GG.Weapon:=Weapon;//选择武器
try
GG.Shoot(MM.Boyfriend);//报仇拉
except//MM吓呆了或者警察来了
GG.自杀;
FreeAndNil(GG);
FreeAndNil(Weapon);
FreeAndNil(MM);
exit;
end;//End for try
end;
end;//End for try
end;//End for while
while GG.Strength<=10 do//只要还有一口气存在,就要享受人生
GG.Kiss(MM);
MM.Boyfriend:=GG;
Result:=Marry(MM,GG);
end;
做个函数,发个消息。看返回TRUE就上,或是用循环!
看你系统资源了!
我女朋友也说,这几天连续吃饭碰到一个男的。是不是你啊。
while GG.Strength>=10 do//只要还有一口气存在,就要享受人生
GG.Kiss(MM);
我在湖南!
http://expert.csdn.net/Expert/topic/1830/1830978.xml?temp=.5713465
好的,照你的做
重要是要会寻找机会,心情好得时候就用harabi(齐桓公)那招,如果心情不好得时候就殷勤一点吧,比如帮忙的筷子、要餐巾纸什么的,如果是下雨就更好了,那个时候很狼狈,有个人撑伞啊什么的就对你的印象加分了