align="justify"> return 2;
}
if (StrToInt (s) <0) {
ShowMessage ("Неприпустимо мале число");
return 3;
} = StrToInt (s);
// ------------------ підказка про пароль = reads (Form2-> Memo1-> Lines-> Strings [3] ); (s == "error # 2") {
ShowMessage ("Відсутні операторні дужки!");
return 1;
} (s == "error # 1") {("Відсутня значення!"); 1;
}
{(write_config ()) exit (1); ShowMessage ("імененем успішно внесені");
}
{
Memo1-> Clear ();
Memo1-> Lines-> Add ("кількість варіантів: <49>");
Memo1-> Lines-> Add ("пароль адміністратора: <650/32-, +> увагу, пароль знаходиться в защіфрованном вигляді!");
Memo1-> Lines-> Add ("коеффициент генерації: <56>");
Memo1-> Lines-> Add ("підказка про пароль: ");
}
{(read_config ()) exit (1); Form7-> ShowModal ();
}
{(read_config ()) exit (1); {-> CSpinEdit1-> MaxValue = var; -> ShowModal ();
}
}
{();
}
// ---------------------------------------- -----------------------------------
Лістинг файлу Unit3.cpp
// ---------------------------------------- -----------------------------------
# include
# pragma hdrstop
# include "Unit3.h"
# include "Unit2.h"
# include "Unit1.h"
# include "Unit4.h"
// ---------------------------------------- -----------------------------------
# pragma package (smart_init)
# pragma resource "*. dfm" * Form3;
// ---------------------------------------- -----------------------------------
__fastcall TForm3 :: TForm3 (TComponent * Owner)
: TForm (Owner)
{
}
{-> Text = ""; ();
}
{s = Edit1-> Text, a = paswd; (int i = 1; i <= s.Len...
