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

[CXZ9]

将Sodick的图形文件转换成AGIE的图形文件
http://www.csdn.net/develop/read_article.asp?id=13675
简化SODICK的齿轮绘图
http://www.csdn.net/develop/read_article.asp?id=13674
cxz

[taidy]

看看！

[kenven]

wa

[CXZ9]

前五人每人四分

[lshadow]

一定看看

[lshadow]

厉害呀！我都看不懂，深奥

[CXZ9]

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

[lshadow]

你学什么专业的？

[CXZ9]

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代表已方
有时我自己也混了
要把电脑敌还是已方？

[CXZ9]

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

[Fly_away_2001]

?