Здравствуйте!Вот сделал прогу,преставляющую собой обыкновенный тест. Вроде все правильно, но во время работы эгзешника возникает исключение:"Access violation addres...in module rtl.bpl.Read of addres ...".Ниже исходный текст проги
НА 237 СТРОКЕ В ТЕКСТЕ И ТОРМОЗИЛа ПРОГА(if (dl!=0 ) st->printf("%s",buf);
),НО ИСПРАВИВ ЛЯПУС(if (dl!=0 ) printf("%s",buf);) ПО СОВЕТУ
ROCKIE ВОЗНИКЛА ТА ЖЕ ОШИБКА,ТОЛЬКО НА 180 СТРОКЕ
| Код |
//H-файл
#ifndef test1H
#define test1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
struct TVopros
{
AnsiString Vopr; //вопрос
AnsiString Otv[4];//варианты ответа
int nOtv; //к-во вариантов ответа
int rOtv; //номер правильного ответа
};
class TForm1 : public TForm
{
__published: // IDE-managed Components
TLabel *Label1; //message,вопрос
TButton *Button1; //кнопка ОК/Дальше
void __fastcall FormActivate(TObject *Sender);
void __fastcall Button1Click(TObject *Sender); //Ok,next
private: // User declarations
//варианты ответа-радиокнопки выбора
TRadioButton *RadioButton[4];
//щелчок на кнопке выбора правильного ответа
void __fastcall RadioButtonClick(TObject *Sender);
void __fastcall ShowVopros (TVopros v); //write answer
void __fastcall EraseVopros(void);//delete answer
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif
**************************
//текст модуля
#include <vcl.h>
#pragma hdrstop
#include <stdio.h>//доступ к функции sscanf
#include "test1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//int i;
int f;//дескриптор файла теста
int level[4];//к-во правильных ответов,необходимых для достижения уровня
AnsiString mes[4]; //сообщение о достижениии уровня
TVopros Vopros; //вопрос
int otv; //номер выбранного ответа
int right=0; //к-во правильных ответов;
int i;
int dl;
//функции,обеспечивающие чтение вопроса из файла теста
int GetInt(int f); //read entire/byte
int GetString (int f,AnsiString *st); //read string
//---------------------------------------------------------------------------
//constructor
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
//int i;
int left=10;
for (i=0;i<4;i++)
{
//создадим радиокнопки для выбора прав. ответа
RadioButton[i]=new TRadioButton(Form1) ;
//checked свойства
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 i;
f=FileOpen("1.txt",fmOpenRead); //open file
if ( f==-1 ) //если файл несуществует
{
Label1->Font->Style=TFontStyles()<<fsBold;
Label1->Caption="Ошибка доступа к файлу 1.txt";
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++);
{
level[i]=GetInt(f);
GetString(f,&mes[i]);
}
}
//читает из файла очередной вопрос
bool GetVopros(TVopros *v)
{
AnsiString st;
if (GetString(f,&(v->Vopr)) !=0)
{
//прочитать к-во вариантов ответа и номер правильного ответа
v->nOtv=GetInt(f) ;
v->rOtv=GetInt(f);
for(int i=0;i<v->nOtv;i++); //читаем варианты ответа
{
GetString (f,&(v->Otv[i]));
}
return true;
}
else return false;
}
//выводит вопрос
void __fastcall TForm1::ShowVopros(TVopros v)
{
int top;
//int i;
Label1->Width=ClientWidth - Label1->Left -20;
Label1->Caption=v.Vopr;
Label1->AutoSize=true;
//variants
for (i=0;i<v.nOtv;i++)
{
RadioButton[i]->Top=top;
RadioButton[i]->Caption=v.Otv[i];
RadioButton[i]->Visible=true;
RadioButton[i]->Checked=false;
top+=20;
}
}
//щелчок на радиокнопке выбора ответа
void __fastcall TForm1::RadioButtonClick(TObject *Sender)
{
int i=0;
while (! RadioButton[i]->Checked)
i++;
otv=i+1;
//ответ выбран,сделаем доступной кнопку "Дальше"
Button1->Enabled=true;
}
//удаляет вопрос с экрана
void __fastcall TForm1::EraseVopros(void)
{
//скрыть поля выбора ответа
for (int i=0;i<4;i++)
{
RadioButton[i]->Visible=false;
RadioButton[i]->Checked=false;
}
//not enables button next
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: //clic на кнопке Даьше
if(otv==Vopros.rOtv)//выбран правильный ответ
right++;
EraseVopros();
ok=GetVopros(&Vopros);
if(ok)
ShowVopros(Vopros);
else //вопросов нет
{
FileClose(f);
//вывести результата
AnsiString st;
int i; //number достигнутого уровня
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; //количестыо прочитанных байт(значение ф-и FileRead)
int dl=0;//длина строки
n=FileRead(f,p,1);
while (n !=0)
{
if (*p=='\r')
{
n=FileRead (f,p,1);
break;
}
dl++;
p++;
n=FileRead (f,p,1);
}
*p='\0';
***код об который спотыкается прога*
if (dl!=0 ) st->printf("%s",buf);
*********************************
return dl;
//читает из файла целое число
int GetInt (int f)
{
char buf[20]; //строка(буфер)
char *p=buf; //указатель на строку
int n;//количество прочитанных байт(значение ф-и FileRead)
int a; //число,прочитанное из файла
n=FileRead(f,p,1);
while ((*p>='0')&& (*p<='9')&&(n>0))
{
p++;
n=FileRead(f,p,1);
}
if (*p=='\r')
n=FileRead(f,p,1);
*p='\0';
//преобразуем стрроку из буфера в целое
sscanf(buf,"%i",&a);
return a;
}
|
|
