لیست کامل:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,shellapi, StdCtrls,xpman;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Button9: TButton;
Button10: TButton;
Button11: TButton;
Button12: TButton;
Button13: TButton;
Button14: TButton;
Button4: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Button13Click(Sender: TObject);
procedure Button14Click(Sender: TObject);
procedure Button12Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
application.Title:='MG XO 1';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Halt;
end;
procedure TForm1.Button2Click(Sender: TObject);
var i:array[1..900] of integer;
s:array[1..900] of string;
begin
button2.Caption:='X';
if (button2.Caption='X') and
(button5.Caption='X') and
(button8.Caption='X') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button2.Caption='X') and
(button5.Caption='X') and
(button8.Caption='O') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button2.Caption='X') and
(button5.Caption='O') and
(button8.Caption='X') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button2.Caption='O') and
(button5.Caption='O') and
(button8.Caption='O') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button2.Caption='O') and
(button5.Caption='X') and
(button8.Caption='O') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button2.Caption='O') and
(button5.Caption='O') and
(button8.Caption='X') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
//badi//
if (button3.Caption='X') and
(button6.Caption='X') and
(button9.Caption='X') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button3.Caption='X') and
(button6.Caption='X') and
(button9.Caption='O') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button3.Caption='X') and
(button6.Caption='O') and
(button9.Caption='X') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button3.Caption='O') and
(button6.Caption='O') and
(button9.Caption='O') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button3.Caption='O') and
(button6.Caption='X') and
(button9.Caption='O') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button3.Caption='O') and
(button6.Caption='O') and
(button9.Caption='X') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
//badi//
if (button4.Caption='X') and
(button7.Caption='X') and
(button10.Caption='X') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button4.Caption='X') and
(button7.Caption='X') and
(button10.Caption='O') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button4.Caption='X') and
(button7.Caption='O') and
(button10.Caption='X') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button4.Caption='O') and
(button7.Caption='O') and
(button10.Caption='O') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button4.Caption='O') and
(button7.Caption='X') and
(button10.Caption='O') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button4.Caption='O') and
(button7.Caption='O') and
(button10.Caption='X') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
// badi //
if (button4.Caption='X') and
(button6.Caption='X') and
(button8.Caption='X') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button4.Caption='X') and
(button6.Caption='X') and
(button8.Caption='O') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button4.Caption='X') and
(button6.Caption='O') and
(button8.Caption='X') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button4.Caption='O') and
(button6.Caption='O') and
(button8.Caption='O') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button4.Caption='O') and
(button6.Caption='X') and
(button8.Caption='O') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button4.Caption='O') and
(button6.Caption='O') and
(button8.Caption='X') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
//badi//
if (button2.Caption='X') and
(button6.Caption='X') and
(button7.Caption='X') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button2.Caption='X') and
(button6.Caption='X') and
(button7.Caption='O') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button2.Caption='X') and
(button6.Caption='O') and
(button7.Caption='X') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button2.Caption='O') and
(button6.Caption='O') and
(button7.Caption='O') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button2.Caption='O') and
(button6.Caption='X') and
(button7.Caption='O') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button2.Caption='O') and
(button6.Caption='O') and
(button7.Caption='X') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
//badi//
if (button2.Caption='X') and
(button3.Caption='X') and
(button4.Caption='X') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button2.Caption='X') and
(button3.Caption='X') and
(button4.Caption='O') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button2.Caption='X') and
(button3.Caption='O') and
(button4.Caption='X') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button2.Caption='O') and
(button3.Caption='O') and
(button4.Caption='O') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button2.Caption='O') and
(button3.Caption='X') and
(button4.Caption='O') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button2.Caption='O') and
(button3.Caption='O') and
(button4.Caption='X') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button5.Caption='X') and
(button6.Caption='X') and
(button7.Caption='X') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button5.Caption='X') and
(button6.Caption='X') and
(button7.Caption='O') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button5.Caption='X') and
(button6.Caption='O') and
(button7.Caption='X') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button5.Caption='O') and
(button6.Caption='O') and
(button7.Caption='O') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button5.Caption='O') and
(button6.Caption='X') and
(button7.Caption='O') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button5.Caption='O') and
(button6.Caption='O') and
(button7.Caption='X') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
//badi//
if (button8.Caption='X') and
(button9.Caption='X') and
(button10.Caption='X') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button8.Caption='X') and
(button9.Caption='X') and
(button10.Caption='O') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button8.Caption='X') and
(button9.Caption='O') and
(button10.Caption='X') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button8.Caption='O') and
(button9.Caption='O') and
(button10.Caption='O') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button8.Caption='O') and
(button9.Caption='X') and
(button10.Caption='O') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button8.Caption='O') and
(button9.Caption='O') and
(button10.Caption='X') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
i[1]:=random(9);
if ((button2.Caption='X')or(button2.Caption='O'))
and ((button3.Caption='X') or
(button3.Caption='O')) then
begin
button4.Caption:='O';
showmessage('Computer Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if ((button5.Caption='X')or(button5.Caption='O'))
and ((button6.Caption='X') or
(button6.Caption='O')) then
begin
button7.Caption:='O';
showmessage('Computer Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if ((button8.Caption='X')or(button8.Caption='O'))
and ((button9.Caption='X') or
(button9.Caption='O')) then
begin
button10.Caption:='O';
showmessage('Computer Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if ((button4.Caption='X')or(button4.Caption='O'))
and ((button3.Caption='X') or
(button3.Caption='O')) then
begin
button2.Caption:='O';
showmessage('Computer Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if ((button7.Caption='X')or(button7.Caption='O'))
and ((button6.Caption='X') or
(button6.Caption='O')) then
begin
button5.Caption:='O';
showmessage('Computer Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if ((button9.Caption='X')or(button9.Caption='O'))
and ((button10.Caption='X') or
(button10.Caption='O')) then
begin
button8.Caption:='O';
showmessage('Computer Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if ((button10.Caption='X')or(button10.Caption='O'))
and ((button6.Caption='X') or
(button6.Caption='O')) then
begin
button2.Caption:='O';
showmessage('Computer Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if ((button2.Caption='X')or(button2.Caption='O'))
and ((button6.Caption='X') or
(button6.Caption='O')) then
begin
button10.Caption:='O';
showmessage('Computer Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if ((button8.Caption='X')or(button8.Caption='O'))
and ((button6.Caption='X') or
(button6.Caption='O')) then
begin
button4.Caption:='O';
showmessage('Computer Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if ((button4.Caption='X')or(button4.Caption='O'))
and ((button6.Caption='X') or
(button6.Caption='O')) then
begin
button8.Caption:='O';
showmessage('Computer Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if ((button2.Caption='X')or(button2.Caption='O'))
and ((button8.Caption='X') or
(button8.Caption='O')) then
begin
button5.Caption:='O';
showmessage('Computer Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if ((button3.Caption='X')or(button3.Caption='O'))
and ((button9.Caption='X') or
(button9.Caption='O')) then
begin
button6.Caption:='O';
showmessage('Computer Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if ((button4.Caption='X')or(button4.Caption='O'))
and ((button10.Caption='X') or
(button10.Caption='O')) then
begin
button7.Caption:='O';
showmessage('Computer Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if ((button2.Caption='X')or(button2.Caption='O'))
and ((button4.Caption='X') or
(button4.Caption='O')) then
begin
button3.Caption:='O';
showmessage('Computer Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if ((button8.Caption='X')or(button8.Caption='O'))
and ((button10.Caption='X') or
(button10.Caption='O')) then
begin
button9.Caption:='O';
showmessage('Computer Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if ((button5.Caption='X')or(button5.Caption='O'))
and ((button7.Caption='X') or
(button7.Caption='O')) then
begin
button6.Caption:='O';
showmessage('Computer Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if ((button2.Caption='X')or(button2.Caption='O'))
and ((button10.Caption='X') or
(button10.Caption='O')) then
begin
button6.Caption:='O';
showmessage('Computer Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if ((button4.Caption='X')or(button4.Caption='O'))
and ((button8.Caption='X') or
(button8.Caption='O')) then
begin
button6.Caption:='O';
showmessage('Computer Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if button2.Caption='' then
s[2]:='y';
if button3.Caption='' then
s[3]:='y';
if button4.Caption='' then
s[4]:='y';
if button5.Caption='' then
s[5]:='y';
if button6.Caption='' then
s[6]:='y';
if button7.Caption='' then
s[7]:='y';
if button8.Caption='' then
s[8]:='y';
if button9.Caption='' then
s[9]:='y';
if button10.Caption='' then
s[10]:='y';
if not (button2.Caption='') then
s[2]:='n';
if not (button3.Caption='') then
s[3]:='n';
if not (button4.Caption='') then
s[4]:='n';
if not (button5.Caption='') then
s[5]:='n';
if not (button6.Caption='') then
s[6]:='n';
if not (button7.Caption='') then
s[7]:='n';
if not (button8.Caption='') then
s[8]:='n';
if not (button9.Caption='') then
s[9]:='n';
if not (button10.Caption='') then
s[10]:='n';
i[2]:=random(2);
i[3]:=random(4);
i[4]:=random(2);
i[5]:=random(4);
i[7]:=random(4);
i[8]:=random(2);
i[9]:=random(4);
i[10]:=random(2);
if (s[2]='y') and (i[2]=1) then
begin
button7.Caption:='O';
s[3]:='';
s[4]:='';
s[5]:='';
s[7]:='';
s[8]:='';
s[9]:='';
s[10]:='';
sendmessage(handle,wm_nextdlgctl,0,0);
end;
if (s[2]='y') and (i[2]=2) then
begin
button9.Caption:='O';
s[3]:='';
s[4]:='';
s[5]:='';
s[7]:='';
s[8]:='';
s[9]:='';
s[10]:='';
sendmessage(handle,wm_nextdlgctl,0,0);
end;
if (s[3]='y') and (i[3]=1) then
begin
button5.Caption:='O';
s[2]:='';
s[4]:='';
s[5]:='';
s[7]:='';
s[8]:='';
s[9]:='';
s[10]:='';
sendmessage(handle,wm_nextdlgctl,0,0);
end;
if (s[3]='y') and (i[3]=2) then
begin
button7.Caption:='O';
s[2]:='';
s[4]:='';
s[5]:='';
s[7]:='';
s[8]:='';
s[9]:='';
s[10]:='';
sendmessage(handle,wm_nextdlgctl,0,0);
end;
if (s[3]='y') and (i[3]=3) then
begin
button8.Caption:='O';
s[2]:='';
s[4]:='';
s[5]:='';
s[7]:='';
s[8]:='';
s[9]:='';
s[10]:='';
sendmessage(handle,wm_nextdlgctl,0,0);
end;
if (s[3]='y') and (i[3]=4) then
begin
button10.Caption:='O';
s[2]:='';
s[4]:='';
s[5]:='';
s[7]:='';
s[8]:='';
s[9]:='';
s[10]:='';
sendmessage(handle,wm_nextdlgctl,0,0);
end;
if (s[4]='y') and (i[4]=1) then
begin
button5.Caption:='O';
s[3]:='';
s[2]:='';
s[5]:='';
s[7]:='';
s[8]:='';
s[9]:='';
s[10]:='';
sendmessage(handle,wm_nextdlgctl,0,0);
end;
if (s[4]='y') and (i[4]=2) then
begin
button9.Caption:='O';
s[3]:='';
s[2]:='';
s[5]:='';
s[7]:='';
s[8]:='';
s[9]:='';
s[10]:='';
sendmessage(handle,wm_nextdlgctl,0,0);
end;
if (s[5]='y') and (i[5]=1) then
begin
button3.Caption:='O';
s[2]:='';
s[3]:='';
s[4]:='';
s[7]:='';
s[8]:='';
s[9]:='';
s[10]:='';
sendmessage(handle,wm_nextdlgctl,0,0);
end;
if (s[5]='y') and (i[5]=2) then
begin
button4.Caption:='O';
s[2]:='';
s[3]:='';
s[4]:='';
s[7]:='';
s[8]:='';
s[9]:='';
s[10]:='';
sendmessage(handle,wm_nextdlgctl,0,0);
end;
if (s[5]='y') and (i[5]=3) then
begin
button9.Caption:='O';
s[2]:='';
s[3]:='';
s[4]:='';
s[7]:='';
s[8]:='';
s[9]:='';
s[10]:='';
sendmessage(handle,wm_nextdlgctl,0,0);
end;
if (s[5]='y') and (i[5]=4) then
begin
button10.Caption:='O';
s[2]:='';
s[3]:='';
s[4]:='';
s[7]:='';
s[8]:='';
s[9]:='';
s[10]:='';
sendmessage(handle,wm_nextdlgctl,0,0);
end;
if (s[7]='y') and (i[7]=1) then
begin
button2.Caption:='O';
s[2]:='';
s[3]:='';
s[4]:='';
s[5]:='';
s[8]:='';
s[9]:='';
s[10]:='';
sendmessage(handle,wm_nextdlgctl,0,0);
end;
if (s[7]='y') and (i[7]=2) then
begin
button3.Caption:='O';
s[2]:='';
s[3]:='';
s[4]:='';
s[5]:='';
s[8]:='';
s[9]:='';
s[10]:='';
sendmessage(handle,wm_nextdlgctl,0,0);
end;
if (s[7]='y') and (i[7]=3) then
begin
button8.Caption:='O';
s[2]:='';
s[3]:='';
s[4]:='';
s[5]:='';
s[8]:='';
s[9]:='';
s[10]:='';
sendmessage(handle,wm_nextdlgctl,0,0);
end;
if (s[7]='y') and (i[7]=4) then
begin
button9.Caption:='O';
s[2]:='';
s[3]:='';
s[4]:='';
s[5]:='';
s[8]:='';
s[9]:='';
s[10]:='';
sendmessage(handle,wm_nextdlgctl,0,0);
end;
if (s[8]='y') and (i[8]=1) then
begin
button3.Caption:='O';
s[2]:='';
s[3]:='';
s[4]:='';
s[5]:='';
s[7]:='';
s[9]:='';
s[10]:='';
sendmessage(handle,wm_nextdlgctl,0,0);
end;
if (s[8]='y') and (i[8]=2) then
begin
button7.Caption:='O';
s[2]:='';
s[3]:='';
s[4]:='';
s[5]:='';
s[7]:='';
s[9]:='';
s[10]:='';
sendmessage(handle,wm_nextdlgctl,0,0);
end;
if (s[9]='y') and (i[9]=1) then
begin
button2.Caption:='O';
s[2]:='';
s[3]:='';
s[4]:='';
s[5]:='';
s[7]:='';
s[8]:='';
s[10]:='';
sendmessage(handle,wm_nextdlgctl,0,0);
end;
if (s[9]='y') and (i[9]=2) then
begin
button4.Caption:='O';
s[2]:='';
s[3]:='';
s[4]:='';
s[5]:='';
s[7]:='';
s[8]:='';
s[10]:='';
sendmessage(handle,wm_nextdlgctl,0,0);
end;
if (s[9]='y') and (i[9]=3) then
begin
button5.Caption:='O';
s[2]:='';
s[3]:='';
s[4]:='';
s[5]:='';
s[7]:='';
s[8]:='';
s[10]:='';
sendmessage(handle,wm_nextdlgctl,0,0);
end;
if (s[9]='y') and (i[9]=4) then
begin
button7.Caption:='O';
s[2]:='';
s[3]:='';
s[4]:='';
s[5]:='';
s[7]:='';
s[8]:='';
s[10]:='';
sendmessage(handle,wm_nextdlgctl,0,0);
end;
if (s[10]='y') and (i[10]=1) then
begin
button3.Caption:='O';
s[2]:='';
s[3]:='';
s[4]:='';
s[5]:='';
s[7]:='';
s[8]:='';
s[9]:='';
sendmessage(handle,wm_nextdlgctl,0,0);
end;
if (s[10]='y') and (i[10]=2) then
begin
button5.Caption:='O';
s[2]:='';
s[3]:='';
s[4]:='';
s[5]:='';
s[7]:='';
s[8]:='';
s[9]:='';
sendmessage(handle,wm_nextdlgctl,0,0);
end;
end;
procedure TForm1.Button11Click(Sender: TObject);
begin
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
procedure TForm1.Button13Click(Sender: TObject);
begin
button13.Caption:='انگلیسی';
button1.caption:='خروج';
button12.caption:='درباره';
button11.caption:='بازی جدید';
button14.Visible:=true;
button13.Visible:=false;
end;
procedure TForm1.Button14Click(Sender: TObject);
begin
button13.Caption:='Farsi';
button1.caption:='Exit';
button12.caption:='About';
button11.caption:='New Game';
button13.Visible:=true;
button14.Visible:=false;
end;
procedure TForm1.Button12Click(Sender: TObject);
begin
Showmessage('این بازی را مهرداد فرخ منش درست کرده است');
end;
procedure TForm1.Button3Click(Sender: TObject);
var i:array[1..900] of integer;
s:array[1..900] of string;
begin
button3.Caption:='X';
if (button2.Caption='X') and
(button5.Caption='X') and
(button8.Caption='X') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button2.Caption='X') and
(button5.Caption='X') and
(button8.Caption='O') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button2.Caption='X') and
(button5.Caption='O') and
(button8.Caption='X') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button2.Caption='O') and
(button5.Caption='O') and
(button8.Caption='O') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button2.Caption='O') and
(button5.Caption='X') and
(button8.Caption='O') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button2.Caption='O') and
(button5.Caption='O') and
(button8.Caption='X') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
//badi//
if (button3.Caption='X') and
(button6.Caption='X') and
(button9.Caption='X') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button3.Caption='X') and
(button6.Caption='X') and
(button9.Caption='O') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button3.Caption='X') and
(button6.Caption='O') and
(button9.Caption='X') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button3.Caption='O') and
(button6.Caption='O') and
(button9.Caption='O') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button3.Caption='O') and
(button6.Caption='X') and
(button9.Caption='O') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button3.Caption='O') and
(button6.Caption='O') and
(button9.Caption='X') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
//badi//
if (button4.Caption='X') and
(button7.Caption='X') and
(button10.Caption='X') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button4.Caption='X') and
(button7.Caption='X') and
(button10.Caption='O') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button4.Caption='X') and
(button7.Caption='O') and
(button10.Caption='X') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button4.Caption='O') and
(button7.Caption='O') and
(button10.Caption='O') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button4.Caption='O') and
(button7.Caption='X') and
(button10.Caption='O') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button4.Caption='O') and
(button7.Caption='O') and
(button10.Caption='X') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
// badi //
if (button4.Caption='X') and
(button6.Caption='X') and
(button8.Caption='X') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button4.Caption='X') and
(button6.Caption='X') and
(button8.Caption='O') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button4.Caption='X') and
(button6.Caption='O') and
(button8.Caption='X') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button4.Caption='O') and
(button6.Caption='O') and
(button8.Caption='O') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button4.Caption='O') and
(button6.Caption='X') and
(button8.Caption='O') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button4.Caption='O') and
(button6.Caption='O') and
(button8.Caption='X') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
//badi//
if (button2.Caption='X') and
(button6.Caption='X') and
(button7.Caption='X') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button2.Caption='X') and
(button6.Caption='X') and
(button7.Caption='O') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button2.Caption='X') and
(button6.Caption='O') and
(button7.Caption='X') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button2.Caption='O') and
(button6.Caption='O') and
(button7.Caption='O') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button2.Caption='O') and
(button6.Caption='X') and
(button7.Caption='O') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button2.Caption='O') and
(button6.Caption='O') and
(button7.Caption='X') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
//badi//
if (button2.Caption='X') and
(button3.Caption='X') and
(button4.Caption='X') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button2.Caption='X') and
(button3.Caption='X') and
(button4.Caption='O') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button2.Caption='X') and
(button3.Caption='O') and
(button4.Caption='X') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button2.Caption='O') and
(button3.Caption='O') and
(button4.Caption='O') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button2.Caption='O') and
(button3.Caption='X') and
(button4.Caption='O') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button2.Caption='O') and
(button3.Caption='O') and
(button4.Caption='X') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button5.Caption='X') and
(button6.Caption='X') and
(button7.Caption='X') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button5.Caption='X') and
(button6.Caption='X') and
(button7.Caption='O') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button5.Caption='X') and
(button6.Caption='O') and
(button7.Caption='X') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button5.Caption='O') and
(button6.Caption='O') and
(button7.Caption='O') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button5.Caption='O') and
(button6.Caption='X') and
(button7.Caption='O') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button5.Caption='O') and
(button6.Caption='O') and
(button7.Caption='X') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
//badi//
if (button8.Caption='X') and
(button9.Caption='X') and
(button10.Caption='X') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button8.Caption='X') and
(button9.Caption='X') and
(button10.Caption='O') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button8.Caption='X') and
(button9.Caption='O') and
(button10.Caption='X') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button8.Caption='O') and
(button9.Caption='O') and
(button10.Caption='O') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button8.Caption='O') and
(button9.Caption='X') and
(button10.Caption='O') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if (button8.Caption='O') and
(button9.Caption='O') and
(button10.Caption='X') then
begin
showmessage('You Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
i[1]:=random(9);
if ((button2.Caption='X')or(button2.Caption='O'))
and ((button3.Caption='X') or
(button3.Caption='O')) then
begin
button4.Caption:='O';
showmessage('Computer Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if ((button5.Caption='X')or(button5.Caption='O'))
and ((button6.Caption='X') or
(button6.Caption='O')) then
begin
button7.Caption:='O';
showmessage('Computer Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if ((button8.Caption='X')or(button8.Caption='O'))
and ((button9.Caption='X') or
(button9.Caption='O')) then
begin
button10.Caption:='O';
showmessage('Computer Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if ((button4.Caption='X')or(button4.Caption='O'))
and ((button3.Caption='X') or
(button3.Caption='O')) then
begin
button2.Caption:='O';
showmessage('Computer Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if ((button7.Caption='X')or(button7.Caption='O'))
and ((button6.Caption='X') or
(button6.Caption='O')) then
begin
button5.Caption:='O';
showmessage('Computer Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if ((button9.Caption='X')or(button9.Caption='O'))
and ((button10.Caption='X') or
(button10.Caption='O')) then
begin
button8.Caption:='O';
showmessage('Computer Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if ((button10.Caption='X')or(button10.Caption='O'))
and ((button6.Caption='X') or
(button6.Caption='O')) then
begin
button2.Caption:='O';
showmessage('Computer Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if ((button2.Caption='X')or(button2.Caption='O'))
and ((button6.Caption='X') or
(button6.Caption='O')) then
begin
button10.Caption:='O';
showmessage('Computer Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if ((button8.Caption='X')or(button8.Caption='O'))
and ((button6.Caption='X') or
(button6.Caption='O')) then
begin
button4.Caption:='O';
showmessage('Computer Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if ((button4.Caption='X')or(button4.Caption='O'))
and ((button6.Caption='X') or
(button6.Caption='O')) then
begin
button8.Caption:='O';
showmessage('Computer Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if ((button2.Caption='X')or(button2.Caption='O'))
and ((button8.Caption='X') or
(button8.Caption='O')) then
begin
button5.Caption:='O';
showmessage('Computer Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if ((button3.Caption='X')or(button3.Caption='O'))
and ((button9.Caption='X') or
(button9.Caption='O')) then
begin
button6.Caption:='O';
showmessage('Computer Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if ((button4.Caption='X')or(button4.Caption='O'))
and ((button10.Caption='X') or
(button10.Caption='O')) then
begin
button7.Caption:='O';
showmessage('Computer Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if ((button2.Caption='X')or(button2.Caption='O'))
and ((button4.Caption='X') or
(button4.Caption='O')) then
begin
button3.Caption:='O';
showmessage('Computer Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if ((button8.Caption='X')or(button8.Caption='O'))
and ((button10.Caption='X') or
(button10.Caption='O')) then
begin
button9.Caption:='O';
showmessage('Computer Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if ((button5.Caption='X')or(button5.Caption='O'))
and ((button7.Caption='X') or
(button7.Caption='O')) then
begin
button6.Caption:='O';
showmessage('Computer Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if ((button2.Caption='X')or(button2.Caption='O'))
and ((button10.Caption='X') or
(button10.Caption='O')) then
begin
button6.Caption:='O';
showmessage('Computer Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if ((button4.Caption='X')or(button4.Caption='O'))
and ((button8.Caption='X') or
(button8.Caption='O')) then
begin
button6.Caption:='O';
showmessage('Computer Win');
button2.Caption:='';button5.Caption:='';button8.Ca ption:='';
button3.Caption:='';button6.Caption:='';button9.Ca ption:='';
button4.Caption:='';button7.Caption:='';button10.C aption:='';
end;
if button2.Caption='' then
s[2]:='y';
if button3.Caption='' then
s[3]:='y';
if button4.Caption='' then
s[4]:='y';
if button5.Caption='' then
s[5]
پاسخ با نقل قول
