1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:

//---------------------------------------------------------------------------
#include <vcl.h>

#pragma hdrstop



#include "Unit1.h"

#include "Unit2.h"

#include "Unit3.h"

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

#pragma package(smart_init)

#pragma link "CGAUGES"

#pragma resource "*.dfm"

TForm1 *Form1;

Integer Reaktionszeit, Zufall = 1;

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

__fastcall TForm1::TForm1(TComponent* Owner)

        : TForm(Owner)

{

}

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

void __fastcall TForm1::Timer1Timer(TObject *Sender)

{

   Reaktionszeit = Reaktionszeit + 13;

   Label1->Caption = IntToStr (Reaktionszeit);

}

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

void __fastcall TForm1::Button1Click(TObject *Sender)

{

  if (((Reaktionszeit == 1) || (Reaktionszeit == 13) || (!Timer1->Enabled)))

    Form1->OnClick

  else;

  {

     Button1->Hide();

     Timer1->Enabled = false;

     StartTimer->Enabled = true;

     Form2->Memo1->Lines->Add(IntToStr (Reaktionszeit));

     Reaktionszeit = 0;

     Button1->Hide();

  }

}

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

void __fastcall TForm1::Button2Click(TObject *Sender)

{

  Form2->Show();

}

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



void __fastcall TForm1::ApplicationEvents1Exception(TObject *Sender,

      Exception *E);



{

  Form2->Hide();

  Form3->ShowModal();

}

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



void __fastcall TForm1::FormClick(TObject *Sender)

{

  Label1->Caption = "Schummler!";

  Form2->Memo1->Clear();

  Timer1->Enabled = false;

  Sleep (1000);

  StartTimer->Enabled = true;

}

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







void __fastcall TForm1::Timer2Timer(TObject *Sender)

{

  Timer1->Enabled = true;

  Timer1->Interval = 1;

}

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



void __fastcall TForm1::StartTimerTimer(TObject *Sender)

{

  Timer2->Enabled = true;

  StartTimer->Enabled = false;

  Button1->Show();

  randomize();

  Zufall = random (2000) + 555;

  Timer2->Interval = Zufall;

}

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

1:
2:
3:
4:
5:

    Unit1.cpp (31): E2379 In Anweisung fehlt ;

    Vollständiger Parser-Kontext:

    Unit1.cpp (28): Analyse von void __fastcall TForm1::Button1Click(TObject *)					

 
54:
55:
56:
57:
58:
59:
60:
61:
62:

/* ... */
  if (((Reaktionszeit == 1) || (Reaktionszeit == 13) || (!Timer1->Enabled))) {

    Form1->OnClick;

  }

  else

  {