1 :: Button3Click (TObject * Sender)
{(read_config ())
}
}
{-> ShowModal ();
}
{(FileExists ("справка.help")) = "Не знайдене файл довідки!"; -> ShowModal ();
}
// ---------------------------------------- -----------------------------------
Лістинг файлу Unit2.cpp
// ---------------------------------------- -----------------------------------
# include
# 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)
{
}
{(s.Pos ("<")) s.Delete (1, s.Pos ("<")); return "error # 2";//файл конфігурації пошкоджений! (s.Pos (">")) s.Delete (s.Pos (">"), s.Length ()); return "error # 2" ;// файл конфігурації пошкоджений! (s! = "") return s; return "error # 1";// рядок порожній
}
{s; (FileExists ("config.dll")) {_read ("config.dll"); -> Memo1-> Text = Form9-> Memo1-> Text;
} {("не знайдене файл конфігурування"); 1;
}
// ------------------ кількість варіантів = reads (Form2-> Memo1-> Lines-> Strings [0]) ; (s == "error # 2") {
ShowMessage ("Відсутні операторні дужки!");
return 1;
} (s == "error # 1") {("Відсутня значення!"); 1;
} (int i = 1; i <= s.Length (); i + +) (s [i] <0 "| | s [i]> '9 ') {( "Неправильний формат!"); 1;
} (s.Length ()> 9) {("Неприпустимо велике число");
return 2;
}
if (StrToInt (s) <0) {
ShowMessage ("Неприпустимо мале число");
return 3;
} = StrToInt (s);
// ------------------ пароль адміна = reads (Form2-> Memo1-> Lines-> Strings [1]) ; (s == "error # 2") {
ShowMessage ("Відсутні операторні дужки!"); ...
