Код в c++ builder 6

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#include <stdio.h>
#include <jpeg.hpp>
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int f;
int level[4];
AnsiString mes[4];
TVopros Vopros;
int otv;
int right = 0;
int GetInt(int f);
int Getstring(int f, AnsiString *st);
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
   : TForm(Owner)
{
int i;
int left = 10;
 
for (i = 0; i < 4; i++)
  {
RadioButton[i] = new TRadioButton(Form1);
RadioButton[i]->Parent = Form1;
RadioButton[i]->Left = left;
RadioButton[i]->Width=Form1->ClientWidth - left -20;
RadioButton[i]->Visible = false;
RadioButton[i]->Checked = false;
 
RadioButton[i]->OnClick = RadioButtonClick;
 }
//---------------------------------------------------------------------------
void __fastcall TForm1::FormActivate(TObject *Sender)
{
AnsiString st;
int n = ParamCount();
if ( n< 1)
{
Label1->Font->Style = TFontStyles()<< fsBold;
Label1->Caption = ("В командной строке надо задать имя файла текста");
Button1->Tag =2;
return;
}
 
f = FileOpen(ParamStr(1), fmOpenRead);
if ( f == -1)
{
Label1->Font->Style = TFontStyles()<< fsBold;
Label1->Caption = "Ошибка доступа к файлу текста" + ParamStr(1);
Button1->Tag = 2;
return;
}
GetString(f, &st);
Form1->Caption = st;
 
GetString(f, &st);
Label1->Width = Form1->ClientWidth - Label1->Left - 20;
Label1->Caption = st;
Label1->AutoSize = true;
 
for (int i+0; i<4; i++)
{
   lavel[i] = GetInt(f);
   GetString(f, %mes[i]);
   }
}
 
bool GetVopros(TVopros *v)
{
AnsiString st;
int p;
if (GetString(f, &(v->Vopr)) !=0);
{
v->nOtv = GetInt(f);
v->rOtv = GetInt(f);
p = GetInt(f);
 
if (p)
GetString(f,&(v->Img));
else v->Img = "";
 
for ( int i = 0; i < v->nOtv ; i++)
{
GetString (f,&(v->Otv[i]));
}
retirn true;
}
else return false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ShowVopos(TVopros v)
{
int top;
int i;
 
Label1->Width = ClientWidth - Label1->Left -20;
Label1->Caption = v.Vopr;
Label1->Autosize = true;
 
if (v.Img != "")
{
int RegHight = Button1->Top
- (Lebel1->Top + Label1->Height +10)
- (RadioButton[1]->Height +10) * v.nOtv;
 
Image1->Top = Label1->Top + Label1->Height 10;
 
Imagel->Visible = false;
Imagel->AutoSize = true;
Imagel->Picture->LoadFromFile(v. Img);
if (Imagel->Height > RegHeight)
{
Imagel->AutoSize = false;
Imagel->Height = RegHeight;
Imagel->Proportional = true;
}
Imagel->Visible = true;
else
top = Labell->Top + Labell->Height + 10;
for (i = 0; i < v.nOtv; i++)
{
RadioButton[i]->Top = top;
RadioButton[i]->Caption = v.otvli}:
RadioButton[i]->Visible = true;
RadioButton[i]->Checked = falee;
top += 20;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButtonClick(TObject *Sender)
{
int i =0;
while ( ! RadiButton[i]->Checked)
i++;
otv = i+1;
Button1->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::EraseVopros(void)
{
Image1->Visible = false;
 
for (inti = 0; i<4; i++)
{
   RadioButton[i]->Visible = false;
   RadioButton[i]->Checked = false;
}
Button1->Enabled = false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
bool ok;
 
switch (Button1->Tag)
{
case 0:
   GetVopros(&Vopros);
   ShowVopros(Vopros);
 
   Button1->Caption = "Дальше";
   Button1->Enabled = false;
   Button1->Tag = 1;
   break;
case 1:
   if ( otv == Vopros.rOtv)
   right++;
   EraseVopros();
   ok = GetVopros(&Vopros);
   if ( ok )
      ShowVopros(Vopros);
      else
      {
      FileClose(f);
      AnsiString;
      AnsiString st;
      int i;
      Form1->Caption = "Результат тестирования";
      st.printf(
      "Правильных овтетов: %i\n",right
      };
 
      i = 0;
      while (( right < level[i]) && (i<3))
      i++;
      st = st + mes[i];
       Label1->Caption = st;
 
       Button1->Caption = "OK";
       Button1->Enabled = true;
       Button1->Tag = 2;
      }
      break;
      case 2:
      Form1->Close();
      }
}
}
//---------------------------------------------------------------------------
int GetString(int f, AnsiString *st)
{
unsigned char buf[300];
unsigned char *p = buf;
 
int n;
int len = 0;
 
n= FileRead(f,p,1);
while ( n != 0)
{
if ( *p == '\r')
{
n = FileRead(f,p,1);
break;
}
len++;
p++;
n=FileRead(f,p,1);
}
*p = '\0';
if ( len !=0) st->printf("%s", buf);
return len;
}
 
int GetInt(int f)
{
char buf[20];
char *p = buf;
 
int n;
int a;
 
n = FileRead (f,p,1);
}
if (*p == '\r')
n =FileRead (f,p,1);
*p = '\0';
sscanf(buf, "%1", &a);
return a;
}

////---------------------------------------------------------------------------
 
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
//---------------------------------------------------------------------------
struct TVopros {
 AnsiString Vopr;
 AnsiString Img;
 AnsiString Otv[4];
 int nOtv;
 int rOtv;
 };
class TForm1 : public TForm
{
__published:    // IDE-managed Components
   TImage *Image1;
   TLabel *Label1;
   TButton *Button1;
   void __fastcall FormActivate(TObject *Sender);
   void __fastcall ShowVopos(TVopros v);
   void __fastcall RadioButtonClick(TObject *Sender);
   void __fastcall EraseVopros(void);
   void __fastcall Button1Click(TObject *Sender);
private:    // User declarations
public:     // User declarations
   __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif