Class TFormSequence (unit Sequence)

Inherits from

TForm

Constructors



Functions

procedure BitBtn1Click(Sender: TObject);


procedure FormCreate(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 FindLast;


Function ReadSequence: String;


Properties

property SequenceOut : String

Public declarations

Events

Variables

BitBtn1 : TBitBtn;


BitBtn2 : TBitBtn;


EdResult : TEdit;


GpBoxFirst : TGroupBox;


GpBoxSecond : TGroupBox;


GpBoxThird : TGroupBox;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Memo1 : TMemo;


Panel1 : TPanel;


RdButMove1 : TRadioButton;


RdButMove2 : TRadioButton;


RdButMove3 : TRadioButton;


RdButTurning1 : TRadioButton;


RdButTurning2 : TRadioButton;


RdButTurning3 : TRadioButton;


RdButXOR1 : TRadioButton;


RdButXOR2 : TRadioButton;


RdButXOR3 : TRadioButton;


FSequenceOut : String;

Private declarations


Constructors


Functions


procedure BitBtn1Click(Sender: TObject);


procedure FormCreate(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 FindLast;


Function ReadSequence: String;


Properties


property SequenceOut : String

Public declarations


Events


Variables


BitBtn1 : TBitBtn;


BitBtn2 : TBitBtn;


EdResult : TEdit;


GpBoxFirst : TGroupBox;


GpBoxSecond : TGroupBox;


GpBoxThird : TGroupBox;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Memo1 : TMemo;


Panel1 : TPanel;


RdButMove1 : TRadioButton;


RdButMove2 : TRadioButton;


RdButMove3 : TRadioButton;


RdButTurning1 : TRadioButton;


RdButTurning2 : TRadioButton;


RdButTurning3 : TRadioButton;


RdButXOR1 : TRadioButton;


RdButXOR2 : TRadioButton;


RdButXOR3 : TRadioButton;


FSequenceOut : String;

Private declarations