对机械有兴趣的朋友请看！

Question

你还在吗？
这可能比较专业了。
其实也就是些字符串的操作

Answer 1

Procedure TMp.helpimgClick(Sender: TObject);
Begin
   helpclick(self);
End;
Procedure TMp.ywinClick(Sender: TObject);
Var
   frmhelp: Tfrmhelp;
Begin
   frmhelp := Tfrmhelp.Create(Self);
   Try
      {case who of
      ywin: frmhelp.Caption := '¹§Ï²£¬ÄãÓ®ÁË£¡';
      ylost: frmhelp. Caption := 'ÎûÎû£¬ÄãÊäÁË£¡';
      else
      frmhelp.Caption := '¿Éϧ£¬ÕâÊǸöƽ¾Ö¡£';
      end;  }
      If who = 'ywin' Then
         frmhelp.Caption := '¹§Ï²£¬ÄãÓ®ÁË£¡' + msg;
      If who = 'ylost' Then
         frmhelp. Caption := 'ÎûÎû£¬ÄãÊäÁË£¡' + msg;
      If who = 'eq' Then
         frmhelp.Caption := '¿Éϧ£¬ÕâÊǸöƽ¾Ö¡£';
      frmhelp.Showmodal;
   Finally
      frmhelp.Free;
      // newclick(self);
   End;
End;Procedure TMp.mainimgMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Begin
   If button = mbright Then
      popupmenu1.popup(mp.left + x, mp.Top + y);
End;Procedure TMp.undoClick(Sender: TObject);
Begin
   sundo;
   //ygo:=not(Ygo);
   initclick(self);
End;Procedure TMp.helpClick(Sender: TObject);
Var
   hhelp: Thhelp;
Begin
   hhelp := Thhelp.Create(Self);
   Try
      hhelp.Showmodal;
   Finally
      hhelp.Free;
   End;
End;Procedure TMp.aboutClick(Sender: TObject);
Var
   aboutbox: Taboutbox;
Begin
   AboutBox := TAboutBox.Create(Self);
   Try
      AboutBox.ShowModal;
   Finally
      AboutBox.Free;
   End;
End;Procedure TMp.shTimer(Sender: TObject);
Begin
   If (ygo = false) Then
      ai(self);
      //while ygo=false do
      //siclick(self);
End;{procedure TMp.siClick(Sender: TObject);
begin
spoto:=poto;
spotm:=potm;
sgo:=ygo;
searchi;
initclick(self);end;   }Procedure TMp.rndClick(Sender: TObject);
Begin
   While (poto[pos] = 0) Or (pos = 0) Do
   Begin
      Randomize;
      pos := random(5) + 1;
   End;
   osend(pos);
End;Procedure SetCheck(Sender: TObject);
Var
   Item: TMenuItem;
Begin
   Item := Sender As TMenuItem;
   Item.Checked := not(item.checked);
End;Procedure TMp.twoClick(Sender: TObject);
Begin
   setcheck(sender);
   ai := noclick;
End;Procedure TMp.noClick(Sender: TObject);
Var
   cxz: integer;
Begin
   cxz := 0;
End;Procedure TMp.NO1Click(Sender: TObject);
Begin
   setcheck(sender);
   ai := rndclick;
End;Procedure TMp.L2Click(Sender: TObject);
Begin
   jpoto := poto;
   jpotm := potm;
   jgo := ygo;
   searchi;
   initclick(self);
End;Procedure TMp.l3Click(Sender: TObject);
Begin
   jpoto := poto;
   jpotm := potm;
   jgo := ygo;
   pos := qsearchi;
   osend(pos);
   initclick(self);
End;Procedure TMp.NO2Click(Sender: TObject);
Begin
   setcheck(sender);
   ai := l2click;
End;Procedure TMp.NO3Click(Sender: TObject);
Begin
   setcheck(sender);
   ai := l3click;
End;Procedure TMp.newimgClick(Sender: TObject);
Begin
   If MessageDlg('ÄãÕæµÄÏëÖØпªÊ¼ÓÎÏ·Âð£¿',
   mtConfirmation, [mbYes, mbNo], 0) = mrYes Then
   Begin
      minit;
      initclick(init);
   End;
End;Procedure TMp.initClick(Sender: TObject);
Var
   i: integer;
Begin
   For i := 0 To 5 Do
   Begin
      mgrid.Cells[i, 0] := inttostr(poto[i + 1]);
      mgrid.Cells[i, 2] := inttostr(potm[6 - i]);
   End;
   mgrid.Cells[0, 1] := inttostr(poto[0]);
   mgrid.Cells[5, 1] := inttostr(potm[0]);
   If (ygo = true) Then
   Begin
      mp.Caption := '¼ñ½ð¶¹¡¡ÂÖµ½Äã×ßÁË!';
      // sh.Enabled :=false;
   End
   Else
   Begin
      mp.caption := '¼ñ½ð¶¹¡¡ÏÖÔÚ¿´ÎÒµÄÁË!';
      sh.Enabled := true;
   End;
   If (ok = true) Then
   Begin
      sh.Enabled := false;
      ywinclick(self);
      ok := false;
      minit;
      initclick(init);
   End;
End;
End.那边没法回了。
加到这儿来。
其中O，OPP代表敌方
M，SELF代表已方
有时我自己也混了
要把电脑敌还是已方？

Answer 2

我是机电一体化的。
你在吗？