Class TForm1 (unit Encrcom)

Inherits from

TForm

ComCtrls

Constructors



Functions

procedure ButExportAllClick(Sender: TObject);


procedure ButExportMinClick(Sender: TObject);


procedure Button1Click(Sender: TObject);


procedure Button2Click(Sender: TObject);

Codeer(Str, Input.

procedure EdMoveChange(Sender: TObject);


procedure InputChange(Sender: TObject);


procedure RdButMove1Click(Sender: TObject);


procedure RdButMove2Click(Sender: TObject);


procedure RdButTurning1Click(Sender: TObject);


procedure RdButTurning2Click(Sender: TObject);


procedure RdButXOR1Click(Sender: TObject);


procedure RdButXOR2Click(Sender: TObject);


Procedure CheckMoveNumberInput;

Codeer(Str, Memo2.

Procedure FillInString(Str: String);


Procedure FindLast;


function ReadSequence: String;

Private declarations

Properties

Events

Variables

BitBtn1 : TBitBtn;


ButExportAll : TButton;


ButExportMin : TButton;


Button1 : TButton;


Button2 : TButton;


ChBoxDecimalOut : TCheckBox;


ChBoxTurning : TCheckBox;


EdKey : TEdit;


EdMove : TEdit;


EdMoveDecr : TEdit;


EdSequence1 : TEdit;


EdSequence2 : TEdit;


EdVar : TEdit;


encode1 : Tencode;


GpBoxFirst : TGroupBox;


GpBoxSecond : TGroupBox;


GpBoxThird : TGroupBox;


Input : TEdit;


Label1 : TLabel;


Label10 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label8 : TLabel;


Label9 : TLabel;


Memo2 : TMemo;


MemoExport : TMemo;


OutputEnc_Dec : TEdit;


Panel1 : TPanel;


RdButMove1 : TRadioButton;


RdButMove2 : TRadioButton;


RdButMove3 : TRadioButton;


RdButTurning1 : TRadioButton;


RdButTurning2 : TRadioButton;


RdButTurning3 : TRadioButton;


RdButXOR1 : TRadioButton;


RdButXOR2 : TRadioButton;


RdButXOR3 : TRadioButton;


TabbedNotebook1 : TTabbedNotebook;



Constructors


Functions


procedure ButExportAllClick(Sender: TObject);


procedure ButExportMinClick(Sender: TObject);


procedure Button1Click(Sender: TObject);


procedure Button2Click(Sender: TObject);

Codeer(Str, Input.Text, EdKey.text, ChBoxDraaiom.checked, True, False, StrToInt(EdMove.text), ReadSequence); *) (* ButShow.enabled := True;


procedure EdMoveChange(Sender: TObject);


procedure InputChange(Sender: TObject);


procedure RdButMove1Click(Sender: TObject);


procedure RdButMove2Click(Sender: TObject);


procedure RdButTurning1Click(Sender: TObject);


procedure RdButTurning2Click(Sender: TObject);


procedure RdButXOR1Click(Sender: TObject);


procedure RdButXOR2Click(Sender: TObject);


Procedure CheckMoveNumberInput;

Codeer(Str, Memo2.lines[0], EdKey.text, ChBoxDraaiom.checked, False, False, StrToInt(EdMove.text), EdSequence2.text); OutputEnc_Dec.Text := Str;


Procedure FillInString(Str: String);


Procedure FindLast;


function ReadSequence: String;

Private declarations


Properties


Events


Variables


BitBtn1 : TBitBtn;


ButExportAll : TButton;


ButExportMin : TButton;


Button1 : TButton;


Button2 : TButton;


ChBoxDecimalOut : TCheckBox;


ChBoxTurning : TCheckBox;


EdKey : TEdit;


EdMove : TEdit;


EdMoveDecr : TEdit;


EdSequence1 : TEdit;


EdSequence2 : TEdit;


EdVar : TEdit;


encode1 : Tencode;


GpBoxFirst : TGroupBox;


GpBoxSecond : TGroupBox;


GpBoxThird : TGroupBox;


Input : TEdit;


Label1 : TLabel;


Label10 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label8 : TLabel;


Label9 : TLabel;


Memo2 : TMemo;


MemoExport : TMemo;


OutputEnc_Dec : TEdit;


Panel1 : TPanel;


RdButMove1 : TRadioButton;


RdButMove2 : TRadioButton;


RdButMove3 : TRadioButton;


RdButTurning1 : TRadioButton;


RdButTurning2 : TRadioButton;


RdButTurning3 : TRadioButton;


RdButXOR1 : TRadioButton;


RdButXOR2 : TRadioButton;


RdButXOR3 : TRadioButton;


TabbedNotebook1 : TTabbedNotebook;