C++ Builder 6 nie chce skompilować aplikacji

Question

Mam problem z poniższym kodem. Chodzi o to, że pokazuje się błąd, który pokażę pod kodem.

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
char p1,p2,p3,p4,p5,p6,p7,p8,p9;
char kto;

void sprawdz()
{
 if((p1==p2 && p2==p3 && p1!='n') ||
        (p4==p5 && p5==p6 && p4!='n') ||
        (p7==p8 && p8==p9 && p7!='n') ||
        (p1==p4 && p4==p7 && p7!='n') ||
        (p2==p5 && p5==p8 && p2!='n') ||
        (p3==p6 && p6==p9 && p3!='n') ||
        (p1==p5 && p5==p9 && p1!='n') ||
        (p3==p5 && p5==p7 && p3!='n'))
{
 char *w;

 if(kto=='x') w="Wygrywa kółko!";
 else w="Wygrywa krzyżyk!";

 Application -> MessageBox (w,"Koniec gry", MB_OK);
}
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
Pole1 -> Picture -> LoadFromFile("IMG/Pole.bmp");
Pole2 -> Picture -> LoadFromFile("IMG/Pole.bmp");
Pole3 -> Picture -> LoadFromFile("IMG/Pole.bmp");
Pole4 -> Picture -> LoadFromFile("IMG/Pole.bmp");
Pole5 -> Picture -> LoadFromFile("IMG/Pole.bmp");
Pole6 -> Picture -> LoadFromFile("IMG/Pole.bmp");
Pole7 -> Picture -> LoadFromFile("IMG/Pole.bmp");
Pole8 -> Picture -> LoadFromFile("IMG/Pole.bmp");
Pole9 -> Picture -> LoadFromFile("IMG/Pole.bmp");
Tura -> Picture -> LoadFromFile("IMG/Kółkom.bmp");

p1='n';
p2='n';
p3='n';
p4='n';
p5='n';
p6='n';
p7='n';
p8='n';
p9='n';
kto='o';

Pole1 -> Enabled=true;
Pole2 -> Enabled=true;
Pole3 -> Enabled=true;
Pole4 -> Enabled=true;
Pole5 -> Enabled=true;
Pole6 -> Enabled=true;
Pole7 -> Enabled=true;
Pole8 -> Enabled=true;
Pole9 -> Enabled=true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Pole1Click(TObject *Sender)
{
if(p1=='n')
{
 if(kto=='o')
 {
  Pole1 -> Picture -> LoadFromFile("IMG/Kółko.bmp");
  kto='x';
  p1='o';
  Pole1 -> Cursor=crArrow;
  Tura -> Picture -> LoadFromFile("IMG/Krzyżykm.bmp");
 }
 else if(kto=='x')
 {
  Pole1 -> Picture -> LoadFromFile("IMG/Krzyżyk.bmp");
  kto='o';
  p1='x';
  Pole1 -> Cursor=crArrow;
  Tura -> Picture -> LoadFromFile("IMG/Kółkom.bmp");
  
 }
 Pole1 -> Enabled=false;
 sprawdz();
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Pole2Click(TObject *Sender)
{
if(p2=='n')
{
 if(kto=='o')
 {
  Pole2 -> Picture -> LoadFromFile("IMG/Kółko.bmp");
  kto='x';
  p2='o';
  Pole2 -> Cursor=crArrow;
  Tura -> Picture -> LoadFromFile("IMG/Krzyżykm.bmp");
 }
 else if(kto=='x')
 {
  Pole2 -> Picture -> LoadFromFile("IMG/Krzyżyk.bmp");
  kto='o';
  p2='x';
  Pole2 -> Cursor=crArrow;
  Tura -> Picture -> LoadFromFile ("IMG/Kółkom.bmp");
 
 }
 Pole2 -> Enabled=false;
 sprawdz();
}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Pole3Click(TObject *Sender)
{
if(p3=='n')
{
 if(kto=='o')
 {
  Pole3 -> Picture -> LoadFromFile("IMG/Kółko.bmp");
  kto='x';
  p3='o';
  Pole3 -> Cursor=crArrow;
  Tura -> Picture -> LoadFromFile("IMG/Krzyżykm.bmp");
  Pole3 -> Enabled=false;
 }
 else if(kto=='x')
 {
  Pole3 -> Picture -> LoadFromFile("IMG/Krzyżyk.bmp");
  kto='o';
  p3='x';
  Pole3 -> Cursor=crArrow;
  Tura -> Picture -> LoadFromFile ("IMG/Kółkom.bmp");
 }
 Pole3 -> Enabled=true;
 sprawdz();
}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Pole4Click(TObject *Sender)
{
if(p4=='n')
{
 if(kto=='o')
 {
  Pole4 -> Picture -> LoadFromFile("IMG/Kółko.bmp");
  kto='x';
  p4='o';
  Pole4 -> Cursor=crArrow;
  Tura -> Picture -> LoadFromFile("IMG/Krzyżykm.bmp");
 }
 else if(kto=='x')
 {
  Pole4 -> Picture -> LoadFromFile("IMG/Krzyżyk.bmp");
  kto='o';
  p4='x';
  Pole4 -> Cursor=crArrow;
  Tura -> Picture -> LoadFromFile ("IMG/Kółkom.bmp");
 ;
 }
  Pole4 -> Enabled=false
  sprawdz();
}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Pole5Click(TObject *Sender)
{
if(p5=='n')
{
 if(kto=='o')
 {
  Pole5 -> Picture -> LoadFromFile("IMG/Kółko.bmp");
  kto='x';
  p5='o';
  Pole5 -> Cursor=crArrow;
  Tura -> Picture -> LoadFromFile("IMG/Krzyżykm.bmp");
 }
 else if(kto=='x')
 {
  Pole5 -> Picture -> LoadFromFile("IMG/Krzyżyk.bmp");
  kto='o';
  p5='x';
  Pole5 -> Cursor=crArrow;
  Tura -> Picture -> LoadFromFile ("IMG/Kółkom.bmp");
 }
 Pole5 -> Enabled=false;
 sprawdz();
}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Pole6Click(TObject *Sender)
{
if(p6=='n')
{
 if(kto=='o')
 {
  Pole6 -> Picture -> LoadFromFile("IMG/Kółko.bmp");
  kto='x';
  p6='o';
  Pole6 -> Cursor=crArrow;
  Tura -> Picture -> LoadFromFile("IMG/Krzyżykm.bmp");
 }
 else if(kto=='x')
 {
  Pole6 -> Picture -> LoadFromFile("IMG/Krzyżyk.bmp");
  kto='o';
  p6='x';
  Pole6 -> Cursor=crArrow;
  Tura -> Picture -> LoadFromFile ("IMG/Kółkom.bmp");
  
 }
 Pole6 -> Enabled=false;
 sprawdz();
 }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Pole7Click(TObject *Sender)
{
if(p7=='n')
{
 if(kto=='o')
 {
  Pole7 -> Picture -> LoadFromFile("IMG/Kółko.bmp");
  kto='x';
  p7='o';
  Pole7 -> Cursor=crArrow;
  Tura -> Picture -> LoadFromFile("IMG/Krzyżykm.bmp");
 }
 else if(kto=='x')
 {
  Pole7 -> Picture -> LoadFromFile("IMG/Krzyżyk.bmp");
  kto='o';
  p7='x';
  Pole7 -> Cursor=crArrow;
  Tura -> Picture -> LoadFromFile ("IMG/Kółkom.bmp");
 
 }
 Pole7 -> Enabled=false;
 sprawdz();
}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Pole8Click(TObject *Sender)
{
if(p8=='n')
{
 if(kto=='o')
 {
  Pole8 -> Picture -> LoadFromFile("IMG/Kółko.bmp");
  kto='x';
  p8='o';
  Pole8 -> Cursor=crArrow;
  Tura -> Picture -> LoadFromFile("IMG/Krzyżykm.bmp");
 }
 else if(kto=='x')
 {
  Pole8 -> Picture -> LoadFromFile("IMG/Krzyżyk.bmp");
  kto='o';
  p8='x';
  Pole8 -> Cursor=crArrow;
  Tura -> Picture -> LoadFromFile ("IMG/Kółkom.bmp");

 }
   Pole8 -> Enabled=false;
   sprawdz();
}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Pole9Click(TObject *Sender)
{
if(p9=='n')
{
 if(kto=='o')
 {
  Pole9 -> Picture -> LoadFromFile("IMG/Kółko.bmp");
  kto='x';
  p9='o';
  Pole9 -> Cursor=crArrow;
  Tura -> Picture -> LoadFromFile("IMG/Krzyżykm.bmp");
 }
 else if(kto=='x')
 {
  Pole9 -> Picture -> LoadFromFile("IMG/Krzyżyk.bmp");
  kto='o';
  p9='x';
  Pole9 -> Cursor=crArrow;
  Tura -> Picture -> LoadFromFile ("IMG/Kółkom.bmp");
 }
   Pole9 -> Enabled=false;
   sprawdz();
}
}
}
//---------------------------------------------------------------------------

Answer 1

Te screenshoty to jakaś plaga.  Czy tak ciężko w kodzie zaznaczyć miejsce wystąpienia błędu i wkleić treść błędu w formie tekstowej?

 

Jakbyś poprawnie formatował kod i robił wcięcia, zauważyłbyś, że zapomniałeś o } w definicji funkcji sprawdz.