Відсутні операторні дужки! );
return 1;
}
if (s == error # 1 ) {
ShowMessage ( Відсутня значення! );
return 1;
}
paswd=s;
//----------------- коеффициент генерації
s=reads (Form2- gt; Memo1- gt; Lines- gt; Strings [2]);
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;
}
kof=StrToInt (s);
//------------------ підказка про пароль
s=reads (Form2- gt; Memo1- gt; Lines- gt; Strings [3]);
if (s == error # 2 ) {
ShowMessage ( Відсутні операторні дужки! );
return 1;
}
if (s == error # 1 ) {
ShowMessage ( Відсутня значення! );
return 1;
}
paswdhelp=s;
return 0;
}
//---------------------------------------------------------------------------_config()
{
String s;
//------------------ кількість варіантів
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 ( Відсутні операторні дужки! );
return 1;
}
if (s == error # 1 ) {
ShowMessage ( Відсутня значення! );
return 1;
}
paswd=s;
//----------------- коеффициент генерації
s=reads (Form2- gt; Memo1- gt; Lines- gt; Strings [2]);
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;
