Class TForm1 (unit Encrcom) |
Inherits from
TForm
ComCtrls
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
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;
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
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;