Jogo da Velha em Delphi

O primeiro programa criado no técnico,foi um jogo da velha, utilizando o programa Delphi 2007. Segue abaixo o código:

unit Unit_Tabuleiro; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Panel1: TPanel; Image1: TImage; Panel2: TPanel; Image2: TImage; Panel3: TPanel; Image3: TImage; Panel4: TPanel; Image4: TImage; Panel5: TPanel; Image5: TImage; Panel6: TPanel; Image6: TImage; Panel7: TPanel; Image7: TImage; Panel8: TPanel; Image8: TImage; Panel9: TPanel; Image9: TImage; Button1: TButton; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; RadioButton1: TRadioButton; RadioButton2: TRadioButton; Edit4: TEdit; Edit5: TEdit; Edit6: TEdit; Edit7: TEdit; Edit8: TEdit; Edit9: TEdit; Edit10: TEdit; Edit11: TEdit; Edit12: TEdit; BitBtn1: TBitBtn; BitBtn2: TBitBtn; Label4: TLabel; Label5: TLabel; procedure Button1Click(Sender: TObject); procedure BitBtn1Click(Sender: TObject); procedure BitBtn2Click(Sender: TObject); procedure Image1Click(Sender: TObject); procedure Image2Click(Sender: TObject); procedure Image3Click(Sender: TObject); procedure Image6Click(Sender: TObject); procedure Image5Click(Sender: TObject); procedure Image4Click(Sender: TObject); procedure Image9Click(Sender: TObject); procedure Image8Click(Sender: TObject); procedure Image7Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } ft_int_jogador_da_vez: integer; procedure ft_voi_Colocar_Uma_Imagem(ft_int_tipo:Integer ; ft_obj_imagem: TImage); procedure ft_voi_Branquear_Todas_As_Imagens(); procedure ft_voi_Mudar_Jogador_Da_Vez(); procedure ft_voi_Liberar_Todas_Imagens(); function ft_boo_Jogador_Da_Vez_Venceu(): Boolean; public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} //============================================================================== procedure TForm1.ft_voi_Mudar_Jogador_Da_Vez(); begin if (self.ft_int_jogador_da_vez = 1) then begin self.ft_int_jogador_da_vez:= 2; end else begin self.ft_int_jogador_da_vez := 1; end; end; //============================================================================== procedure TForm1.ft_voi_Liberar_Todas_Imagens(); begin self.Image1.Enabled := true; self.Image2.Enabled := true; self.Image3.Enabled := true; self.Image4.Enabled := true; self.Image5.Enabled := true; self.Image6.Enabled := true; self.Image7.Enabled := true; self.Image8.Enabled := true; self.Image9.Enabled := true; end; //============================================================================== procedure TForm1.ft_voi_Branquear_Todas_As_Imagens; begin self.ft_voi_Colocar_Uma_Imagem(0 , self.Image1); self.ft_voi_Colocar_Uma_Imagem(0 , self.Image2); self.ft_voi_Colocar_Uma_Imagem(0 , self.Image3); self.ft_voi_Colocar_Uma_Imagem(0 , self.Image4); self.ft_voi_Colocar_Uma_Imagem(0 , self.Image5); self.ft_voi_Colocar_Uma_Imagem(0 , self.Image6); self.ft_voi_Colocar_Uma_Imagem(0 , self.Image7); self.ft_voi_Colocar_Uma_Imagem(0 , self.Image8); self.ft_voi_Colocar_Uma_Imagem(0 , self.Image9); //------ self.ft_int_jogador_da_vez:= 1; end; //============================================================================== procedure TForm1.ft_voi_Colocar_Uma_Imagem(ft_int_tipo:Integer;ft_obj_imagem:TImage); begin if(ft_int_tipo=1)then begin ft_obj_imagem.Picture.LoadFromFile('D:\RAD Studio\Projects\Fernanda\imagens\x.bmp'); end else if(ft_int_tipo=2)then begin ft_obj_imagem.Picture.LoadFromFile('D:\RAD Studio\Projects\Fernanda\imagens\o.bmp') end else begin ft_obj_imagem.Picture.LoadFromFile('D:\RAD Studio\Projects\Fernanda\imagens\vazio.bmp'); end; end; //============================================================================== procedure TForm1.Image1Click(Sender: TObject); begin self.ft_voi_Colocar_Uma_Imagem (self.ft_int_jogador_da_vez ,self.image1); self.Image1.Enabled:=false; self.Edit4.text:=inttostr(self.ft_int_jogador_da_vez); if (self.ft_boo_Jogador_Da_Vez_Venceu) then begin ShowMessage('O jogador ' + inttostr(self.ft_int_jogador_da_vez) + ' venceu! '); end; self.ft_voi_Mudar_Jogador_Da_Vez(); end; procedure TForm1.Image2Click(Sender: TObject); begin self.ft_voi_Colocar_Uma_Imagem(self.ft_int_jogador_da_vez , self.image2); self.Image2.Enabled:=false; self.Edit5.text:=inttostr(self.ft_int_jogador_da_vez); if (self.ft_boo_Jogador_Da_Vez_Venceu) then begin ShowMessage('O jogador ' + inttostr(self.ft_int_jogador_da_vez) + ' venceu! '); end; self.ft_voi_Mudar_Jogador_Da_Vez(); end; procedure TForm1.Image3Click(Sender: TObject); begin self.ft_voi_Colocar_Uma_Imagem(self.ft_int_jogador_da_vez , self.image3); self.Image3.Enabled:=false; self.Edit6.text:=inttostr(self.ft_int_jogador_da_vez); if (self.ft_boo_Jogador_Da_Vez_Venceu) then begin ShowMessage('O jogador ' + inttostr(self.ft_int_jogador_da_vez) + ' venceu! '); end; self.ft_voi_Mudar_Jogador_Da_Vez(); end; procedure TForm1.Image4Click(Sender: TObject); begin self.ft_voi_Colocar_Uma_Imagem(self.ft_int_jogador_da_vez , self.image4); self.Image4.Enabled:=false; self.Edit9.text:=inttostr(self.ft_int_jogador_da_vez); if (self.ft_boo_Jogador_Da_Vez_Venceu) then begin ShowMessage('O jogador ' + inttostr(self.ft_int_jogador_da_vez) + ' venceu! '); end; self.ft_voi_Mudar_Jogador_Da_Vez(); end; procedure TForm1.Image5Click(Sender: TObject); begin self.ft_voi_Colocar_Uma_Imagem(self.ft_int_jogador_da_vez , self.image5); self.Image5.Enabled:=false; self.Edit8.text:=inttostr(self.ft_int_jogador_da_vez); if (self.ft_boo_Jogador_Da_Vez_Venceu) then begin ShowMessage('O jogador ' + inttostr(self.ft_int_jogador_da_vez) + ' venceu! '); end; self.ft_voi_Mudar_Jogador_Da_Vez(); end; procedure TForm1.Image6Click(Sender: TObject); begin self.ft_voi_Colocar_Uma_Imagem(self.ft_int_jogador_da_vez , self.image6); self.Image6.Enabled:=false; self.Edit7.text:=inttostr(self.ft_int_jogador_da_vez); if (self.ft_boo_Jogador_Da_Vez_Venceu) then begin ShowMessage('O jogador ' + inttostr(self.ft_int_jogador_da_vez) + ' venceu! '); end; self.ft_voi_Mudar_Jogador_Da_Vez(); end; procedure TForm1.Image7Click(Sender: TObject); begin self.ft_voi_Colocar_Uma_Imagem(self.ft_int_jogador_da_vez , self.image7); self.Image7.Enabled:=false; self.Edit12.text:=inttostr(self.ft_int_jogador_da_vez); if (self.ft_boo_Jogador_Da_Vez_Venceu) then begin ShowMessage('O jogador ' + inttostr(self.ft_int_jogador_da_vez) + ' venceu! '); end; self.ft_voi_Mudar_Jogador_Da_Vez(); end; procedure TForm1.Image8Click(Sender: TObject); begin self.ft_voi_Colocar_Uma_Imagem(self.ft_int_jogador_da_vez , self.image8); self.Image8.Enabled:=false; self.Edit11.text:=inttostr(self.ft_int_jogador_da_vez); if (self.ft_boo_Jogador_Da_Vez_Venceu) then begin ShowMessage('O jogador ' + inttostr(self.ft_int_jogador_da_vez) + ' venceu! '); end; self.ft_voi_Mudar_Jogador_Da_Vez(); end; procedure TForm1.Image9Click(Sender: TObject); begin self.ft_voi_Colocar_Uma_Imagem(self.ft_int_jogador_da_vez , self.image9); self.Image9.Enabled:=false; self.Edit10.text:=inttostr(self.ft_int_jogador_da_vez); if (self.ft_boo_Jogador_Da_Vez_Venceu) then begin ShowMessage('O jogador ' + inttostr(self.ft_int_jogador_da_vez) + ' venceu! '); end; self.ft_voi_Mudar_Jogador_Da_Vez(); end; //============================================================================== function TForm1.ft_boo_Jogador_Da_Vez_Venceu(): Boolean; var ft_str_valor: string; ft_boo_apoio: boolean; Begin ft_str_valor := inttostr(self.ft_int_jogador_da_vez); if ((self.Edit4.text = ft_str_valor) and (self.Edit5.text = ft_str_valor) and (self.Edit6.Text = ft_str_valor)) then begin ft_boo_apoio := true; end else if ((self.Edit7.text = ft_str_valor) and (self.Edit8.text = ft_str_valor) and (self.Edit9.Text = ft_str_valor)) then begin ft_boo_apoio := true; end else if ((self.Edit10.text = ft_str_valor) and (self.Edit11.text = ft_str_valor) and (self.Edit12.Text = ft_str_valor)) then begin ft_boo_apoio := true; end else if ((self.Edit4.text = ft_str_valor) and (self.Edit7.text = ft_str_valor) and (self.Edit10.Text = ft_str_valor)) then begin ft_boo_apoio := true; end else if ((self.Edit5.text = ft_str_valor) and (self.Edit8.text = ft_str_valor) and (self.Edit11.Text = ft_str_valor)) then begin ft_boo_apoio := true; end else if ((self.Edit6.text = ft_str_valor) and (self.Edit9.text = ft_str_valor) and (self.Edit12.Text = ft_str_valor)) then begin ft_boo_apoio := true; end else if ((self.Edit4.text = ft_str_valor) and (self.Edit8.text = ft_str_valor) and (self.Edit12.Text = ft_str_valor)) then begin ft_boo_apoio := true; end else if ((self.Edit10.text = ft_str_valor) and (self.Edit8.text = ft_str_valor) and (self.Edit6.Text = ft_str_valor)) then begin ft_boo_apoio := true; end else begin ft_boo_apoio := false; end; result := ft_boo_apoio; End; //============================================================================== procedure TForm1.BitBtn1Click(Sender: TObject); begin self.Image1.Picture.LoadFromFile('D:\RAD Studio\Projects\Fernanda\imagens\x.bmp'); self.Image2.Picture.LoadFromFile('D:\RAD Studio\Projects\Fernanda\imagens\x.bmp'); self.Image3.Picture.LoadFromFile('D:\RAD Studio\Projects\Fernanda\imagens\x.bmp'); self.Image4.Picture.LoadFromFile('D:\RAD Studio\Projects\Fernanda\imagens\x.bmp'); self.Image5.Picture.LoadFromFile('D:\RAD Studio\Projects\Fernanda\imagens\x.bmp'); self.Image6.Picture.LoadFromFile('D:\RAD Studio\Projects\Fernanda\imagens\x.bmp'); self.Image7.Picture.LoadFromFile('D:\RAD Studio\Projects\Fernanda\imagens\x.bmp'); self.Image8.Picture.LoadFromFile('D:\RAD Studio\Projects\Fernanda\imagens\x.bmp'); self.Image9.Picture.LoadFromFile('D:\RAD Studio\Projects\Fernanda\imagens\x.bmp'); end; //============================================================================== procedure TForm1.BitBtn2Click(Sender: TObject); begin self.Image1.Picture.LoadFromFile('D:\RAD Studio\Projects\Fernanda\imagens\o.bmp'); self.Image2.Picture.LoadFromFile('D:\RAD Studio\Projects\Fernanda\imagens\o.bmp'); self.Image3.Picture.LoadFromFile('D:\RAD Studio\Projects\Fernanda\imagens\o.bmp'); self.Image4.Picture.LoadFromFile('D:\RAD Studio\Projects\Fernanda\imagens\o.bmp'); self.Image5.Picture.LoadFromFile('D:\RAD Studio\Projects\Fernanda\imagens\o.bmp'); self.Image6.Picture.LoadFromFile('D:\RAD Studio\Projects\Fernanda\imagens\o.bmp'); self.Image7.Picture.LoadFromFile('D:\RAD Studio\Projects\Fernanda\imagens\o.bmp'); self.Image8.Picture.LoadFromFile('D:\RAD Studio\Projects\Fernanda\imagens\o.bmp'); self.Image9.Picture.LoadFromFile('D:\RAD Studio\Projects\Fernanda\imagens\o.bmp'); end; //============================================================================== procedure TForm1.Button1Click(Sender: TObject); begin self.ft_voi_Branquear_Todas_As_Imagens(); self.ft_voi_Liberar_Todas_Imagens(); Edit4.Clear; Edit5.Clear; Edit6.Clear; Edit7.Clear; Edit8.Clear; Edit9.Clear; Edit10.Clear; Edit11.Clear; Edit12.Clear; end; procedure TForm1.FormCreate(Sender: TObject); begin self.ft_voi_Branquear_Todas_As_Imagens(); self.ft_voi_Liberar_Todas_Imagens(); end; //============================================================================== end.

 

E as imagens:

OBS: Para que o jogo dê certo será necessário alterar algumas variáveis e endereço das imagens.