Class TfrmMain (unit CreateU)

Inherits from

TForm

Constructors



Functions

procedure btnCreateClick(Sender: TObject);

When splitting a sector

procedure btnExitClick(Sender: TObject);

find the page number

procedure CreateFFile;

Private declarations

procedure CreateIDGenFile;


procedure CreateKeyFile;


procedure CreateVFile;


Properties

Events

Variables

btnCreate : TButton;


btnExit : TButton;


edtFFN : TEdit;


edtFRL : TEdit;


edtGFN : TEdit;


edtKFN : TEdit;


edtKL : TEdit;


edtVBS : TEdit;


edtVFN : TEdit;


lab0FN : TLabel;


lab0RL : TLabel;


lab1FN : TLabel;


lab2FN : TLabel;


lab4FN : TLabel;


lab4KL : TLabel;


labBlockSize : TLabel;


labTop : TLabel;


pgcMain : TPageControl;


rgpKey : TRadioGroup;


tbsFFile : TTabSheet;


tbsIDGen : TTabSheet;


tbsPKey : TTabSheet;


tbsVFile : TTabSheet;



Constructors


Functions


procedure btnCreateClick(Sender: TObject);

When splitting a sector


procedure btnExitClick(Sender: TObject);

find the page number


procedure CreateFFile;

Private declarations


procedure CreateIDGenFile;


procedure CreateKeyFile;


procedure CreateVFile;


Properties


Events


Variables


btnCreate : TButton;


btnExit : TButton;


edtFFN : TEdit;


edtFRL : TEdit;


edtGFN : TEdit;


edtKFN : TEdit;


edtKL : TEdit;


edtVBS : TEdit;


edtVFN : TEdit;


lab0FN : TLabel;


lab0RL : TLabel;


lab1FN : TLabel;


lab2FN : TLabel;


lab4FN : TLabel;


lab4KL : TLabel;


labBlockSize : TLabel;


labTop : TLabel;


pgcMain : TPageControl;


rgpKey : TRadioGroup;


tbsFFile : TTabSheet;


tbsIDGen : TTabSheet;


tbsPKey : TTabSheet;


tbsVFile : TTabSheet;