一个程序员的苦恼：怎样在舞厅里追MM?

Question

1.if mm.GF=nil then
    追
  else
    狂追;  
2. try
     GetTelephone(mm);
   except
     raise;
3. uses talklib ,dancelib; 
     

Answer 1

ZengXi()　:应该是 if mm.BF=NIL then   up
else
  up and up如果不考虑语法错误，可以加上，until mm.cry.

Answer 2

unit Unit2;interfacetype
  TMM = class(TManKind);
    property BF: boolean read 你的勇气  write 你的魅力
  end;  TGG = class(TManKind);
  end;Label Table;var
   mm: TMM;
   GG: TGG;   mmResult: Word;implementation   ...Ommited....
   mm:= Tmm.Create(舞厅);
   GG:= TGG.Create(舞厅);   1）在舞厅里怎么判断她没有男朋友？
   try
     if mm.BF then
       狂追
     else 追;
   except
     我永远爱你！//（虽然是谎言，但很好听）
   end;   2）请她跳一曲后，下一步怎么做   while not Music.Over then
     Dancing for ever... and say....:)~~~~
   else
   begin
     GG.Associate:= MM;
     Goto Table;
   end;Table:
  if Time <= 11:00 then
  begin
    SitDown.Direction:= dSameDirection;
    Coffie.Buy;
    Hand.Catch;
    眉眼.throw;
    甜言蜜语.Say;
  end else
  begin
    mm.GoHome;
    然后就嘿嘿
  end;initialization
  GG.打扮;  //finalization ，此处作者删去800字:)end;
  3)就像一般的程序员，我不健谈，而且舞跳的不好
  怎么办??????????????????????????????????????  if GG.Dacing = dcBad then
  begin
    mm.Feet.踩;
    mmResult:= MessageDlg('真对不起！',mtConfirmation, mbYesNoCancel, 0);    if (mmResult = mrYes) or (mmResult = mrCancel) then
    begin
      mm.进一步行动;
    end else if mrNo then
    begin
      GG.换一个mm; //:(
    end;  end else
  begin
    if mm.Dancing = dcBand then
    begin
      我教你跳吧！
    end else
    begin
      哇！总算找到知音了，相知恨晚啊！！
      你经常去哪里跳啊？你是专业的？？么？
    end;
  end;
end.

Answer 3

楼上的厉害！！！！！！！！
我也提供一点我的看法：
  Type
    TMan=Class  (恋爱成功过的男人才叫Man)
      private: 
        FAfraid: Boolean;
        FInsist: Boolean;
  var
    GG: Man;
  Timer1: TTimer;
Timer1.OnTimer(......):
begin
  Interval:=600000;
  try
    if GG.telephoneToMM then
      if not GG.FAfraid then GG.Insist;
  except
    GG.Insist
  end; (no raise!!!,but Insist)
end;
     

Answer 4

try
  Free;
except
  Halt(0);
end;

Answer 5

TO 　man8888  阿拉彻底服了 You  ！