Сделал запись названия теста и вариантов ответов в файл...
Сохраняет все нормально... а открыть не могу....
подскажите плиз.. где ошибка.. или может вообще что нить не правильно..
Code
void __fastcall TForm7::Button3Click(TObject *Sender)
{
fclose(Fs);
OpenDialog1->Title="Открыть файл";
if (OpenDialog1->Execute())
{
AnsiString FileNameR=OpenDialog1->FileName;
{
ShowMessage("Файл не открыт");
return;
}
Memo1->Clear();
nzap=-1;
do
{
nzap++;
fread(&Test[nzap],sizeof(TTst),1,Fs);
if (feof(Fs)) break;
Memo1->Lines->Add(Test[nzap].Name);
Memo1->Lines->Add(Test[nzap].otv1);
Memo1->Lines->Add(Test[nzap].otv2);
Memo1->Lines->Add(Test[nzap].otv3);
Memo1->Lines->Add(Test[nzap].otv4);
Memo1->Lines->Add(Test[nzap].protv1);
Memo1->Lines->Add(Test[nzap].protv2);
Memo1->Lines->Add(Test[nzap].protv3);
} while (True);
--nzap;
Button2->Enabled=True;
Button4->Enabled=True;
}
}
