---------------------------------------------
__ fastcall TForm1 :: Button3Click (TObject * Sender)
{
if (read_config ()) exit (1);
else
if (SaveDialog1- gt; Execute ()) {
Form1- gt; Memo1- gt; Lines- gt; SaveToFile (SaveDialog1- gt; FileName);
}
}
//---------------------------------------------------------------------------__fastcall TForm1 :: Button5Click (TObject * Sender)
{
Form6- gt; ShowModal ();
}
//---------------------------------------------------------------------------
__ fastcall TForm1 :: Button6Click (TObject * Sender)
{
if (FileExists ( справка.help )) Form10- gt; Memo1- gt; Lines- gt; LoadFromFile ( справка.help );
else Form10- gt; Memo1- gt; Lines- gt; Strings [0]= не знайдений файл довідки! raquo ;;
Form10- gt; ShowModal ();
}
//---------------------------------------------------------------------------
Лістинг файлу Unit2.cpp
//---------------------------------------------------------------------------
# include lt; vcl.h gt;
# pragma hdrstop
# include Unit2.h
# include Unit1.h
# include Unit7.h
# include Unit8.h
# include Unit9.h
//---------------------------------------------------------------------------
# pragma package (smart_init)
# pragma resource *. dfm * Form2;
//---------------------------------------------------------------------------
__ fastcall TForm2 :: TForm2 (TComponent * Owner)
: TForm (Owner)
{
}
//---------------------------------------------------------------------------reads(String s)
{
if (s.Pos ( lt; )) s.Delete (1, s.Pos ( lt; ));
else return error # 2 raquo ;;// файл конфігурації пошкоджений !!!
if (s.Pos ( gt; )) s.Delete (s.Pos ( gt; ), s.Length ());
else return error # 2 raquo ;;// файл конфігурації пошкоджений !!!
if (s!= ) return s;
else return error # 1 raquo ;;// рядок порожня
}
//---------------------------------------------------------------------------_config()
{
String s;
if (FileExists ( config.dll )) {
file_read ( config.dll );
Form2- gt; Memo1- gt; Text=Form9- gt; Memo1- gt; Text;
}
else {
ShowMessage ( не знайдений файл конфігурування );
return 1;
}
//------------------ кількість варіантів
s=reads (Form2- gt; Memo1- gt; Lines- gt; Strings [0]);
if (s == error # 2 ) {
ShowMessage ( Відсутні операторні дужки! );
return 1;
}
if (s == error # 1 ) {
ShowMessage ( Відсутня значення! );
return 1;
}
for (int i=1; i lt;=s.Length (); i ++)
if (s [i] lt; 0 || s [i] gt; 9 ) {
ShowMessage ( Неправильний формат! );
return 1;
}
if (s.Length () gt; 9) {
ShowMessage ( Неприпустимо велике число );
return 2;
}
if (StrToInt (s) lt; 0) {
ShowMessage ( Неприпустимо мале число );
return 3;
}
var=StrToInt (s);
//------------------ пароль адміна
s=reads (Form2- gt; Memo1- gt; Lines- gt; Strings [1]);
if (s == error # 2 ) {
ShowMessage ( ...
