: -> Clear (); -> Lines-> Add ("кількість варіантів: < "+ Edit1-> Text +"> "); s = Edit2-> Text; (int i = 1; i <= s.Length (); i + +) [i] = (char) ( s [i]-i% 5-s [i]% 4-1);
Memo1-> Lines-> Add ("пароль адміністратора: <" + s +"> увагу, пароль знаходиться в защіфрованном вигляді!");
Memo1-> Lines-> Add ("коефіцієнт генерації: <" + Edit3-> Text +">"); -> Lines-> Add ("підказка про пароль: <" + Edit4-> Text +">"); -> Memo1-> Text = Memo1-> Text; _write ("config.dll") ; ("Файл конфігурації успішно exit (1);
}
}
// ---------------------------------------- -----------------------------------
Лістинг файлу Unit7.cpp
// ---------------------------------------- -----------------------------------
# include
# pragma hdrstop
# include "Unit1.h"
# include "Unit7.h"
# include "Unit2.h"
# include "Unit9.h"
// ---------------------------------------- -----------------------------------
# pragma package (smart_init)
# pragma resource "*. dfm" * Form7;
// ---------------------------------------- -----------------------------------
__fastcall TForm7 :: TForm7 (TComponent * Owner)
: TForm (Owner)
{
}
{-> Lines-> Clear (); ();
}
"; _write (" config.dll "); -> Lines-> Clear (); (" Варіант успішно додано. ") ; (read_config ()) exit (1); ();
}
// ---------------------------------------- -----------------------------------
Лістинг файлу Uni8.cpp
// ---------------------------------------- -----------------------------------
# include
# pragma hdrstop
# include "Unit8.h"
# include "Unit9.h"
// ---------------------------------------- -----------------------------------
# pragma package (smart_init)
# pragma link "CSPIN"
# pragma resource "*. dfm" * Form8; variant = 1;
// ---------------------------------------- -----------------------------------
__fastcall TForm8 :: TForm8 (TComponent * Owner)
: TForm (Owner)
{
}