Function 我要泡她 result := false; while not 你.没有泡到.她 do begin if 她.已经结婚 then exit; if 她.已经有男朋友 then 你.kill.她男朋友; if 她喜欢.有钱人 then 你拼命找钱; if (她喜欢.帅哥) and (你<> 帅哥) then 你挣钱整容.变帅哥; 早上见面.打招呼; 中饭吃饭.在一起; 晚上下班.一起下; 平时没事.问长问短; 周末有空.请看电影; 过节.一定常约玩; 投其所爱.经常; 找机会.直接上她.再表达; if 有一天.你和她都喝晕了 then begin 你.上.她; result := 第二天.表达出自己对他的爱意 =成功; if result then exit; end; end; end;
http://community.csdn.net/Expert/topic/4870/4870083.xml?temp=.7386896
Function 我要泡她
result := false;
while not 你.没有泡到.她 do begin
if 她.已经结婚 then exit;
if 她.已经有男朋友 then 你.kill.她男朋友;
if 她喜欢.有钱人 then 你拼命找钱;
if (她喜欢.帅哥) and (你<> 帅哥) then
你挣钱整容.变帅哥;
早上见面.打招呼;
中饭吃饭.在一起;
晚上下班.一起下;
平时没事.问长问短;
周末有空.请看电影;
过节.一定常约玩;
投其所爱.经常;
找机会.直接上她.再表达;
if 有一天.你和她都喝晕了 then begin
你.上.她;
result := 第二天.表达出自己对他的爱意 =成功;
if result then exit;
end;
end;
end;
然后直接点F9。运行下。看看函数返回是不是为真。
我试了很多次。全返回为真。 你不要说你的系统不支持这样的函数。
那可能你人品问题。
日后才好说
===============================================
严重同意,说的好
说的好!
Rx_Freq:string;
Tx_Freq:string;
form1.StrGrid.Cells[1,trunc(i/2)]:=insert('.',Rx_Freq,3);
form1.StrGrid.Cells[2,trunc(i/2)]:=insert('.',Tx_Freq,3);
这样子的操作为什么会出错?
==========================
嘿嘿,闲里偷忙一下了,祝LZ早日成功!