Archive / ОТКА / Синтез4 / Unit2

unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Buttons;

type
TForm2 = class(TForm)
bbOutputA: TButton;
bbOutputB: TButton;
bbOutputC: TButton;
bbOutputD: TButton;
bbOutputnA: TButton;
bbOutputnB: TButton;
bbOutputnC: TButton;
bbOutputnD: TButton;
bbTere: TButton;
bbOk: TButton;
mrCancel: TButton;
Edit1: TEdit;
Delet: TSpeedButton;
procedure mrCancelClick(Sender: TObject);
procedure bbOkClick(Sender: TObject);
procedure bbOutputAClick(Sender: TObject);
procedure bbTereClick(Sender: TObject);
procedure bbOutputnAClick(Sender: TObject);
procedure bbOutputBClick(Sender: TObject);
procedure bbOutputnBClick(Sender: TObject);
procedure bbOutputCClick(Sender: TObject);
procedure bbOutputnCClick(Sender: TObject);
procedure bbOutputDClick(Sender: TObject);
procedure bbOutputnDClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure DeletClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;
z:TObject;
ok1,ok2,ok3,ok4,ok5,ok6,ok7,ok8,open:boolean;
i,j:integer;
okt:integer; //array [1..8] of integer;
del:array [1..20] of integer;
doobl:string;

implementation

Uses Unit1,Unit3;

{$R *.dfm}

procedure TForm2.mrCancelClick(Sender: TObject);
begin
Edit1.Clear;
form1.bbOutputF.Caption:='Ввод';
form1.N11.Enabled:=true;
Form2.Close;

end;

procedure TForm2.bbOkClick(Sender: TObject);
begin

form1.N11.Enabled:=false;
form1.cbOutput1.Text:=edit1.Text;
open:=true;
if (open)and(Unit3.open)then
begin
form1.bbOutputF.Caption:='Сброс';
Form1.play.Enabled:=true;
Form1.Next.Enabled:=true;
Form1.f11.Enabled:=true;
open:=False;
Unit3.open:=false;
end;
edit1.Clear;
Form2.Close;
end;


procedure TForm2.bbTereClick(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+'-';
bbTere.Enabled:=False;
bbOk.Enabled:=False;
del[i]:=9;
inc(i);
FormCreate(z);
end;

procedure TForm2.bbOutputAClick(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+'A';
bbTere.Enabled:=True;
bbOk.Enabled:=True;
bbOutputA.Enabled:=False;
bbOutputnA.Enabled:=False;
ok1:=true;
okt:=1;
del[i]:=5;
inc(i);
end;

procedure TForm2.bbOutputnAClick(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+'nA';
bbTere.Enabled:=True;
bbOk.Enabled:=True;
bbOutputA.Enabled:=False;
bbOutputnA.Enabled:=False;
ok2:=true;
okt:=5;
del[i]:=1;
inc(i);
//top(z);
end;

procedure TForm2.bbOutputBClick(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+'B';
bbTere.Enabled:=True;
bbOk.Enabled:=True;
bbOutputB.Enabled:=False;
bbOutputnB.Enabled:=False;
ok3:=true;
okt:=2;
del[i]:=6;
inc(i);
//top(z);
end;

procedure TForm2.bbOutputnBClick(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+'nB';
bbTere.Enabled:=True;
bbOk.Enabled:=True;
bbOutputB.Enabled:=False;
bbOutputnB.Enabled:=False;
ok4:=true;
okt:=6;
del[i]:=2;
inc(i);
//top(z);
end;

procedure TForm2.bbOutputCClick(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+'C';
bbTere.Enabled:=True;
bbOk.Enabled:=True;
bbOutputC.Enabled:=False;
bbOutputnC.Enabled:=False;
ok5:=true;
okt:=3;
del[i]:=7;
inc(i);
//top(z);
end;

procedure TForm2.bbOutputnCClick(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+'nC';
bbTere.Enabled:=True;
bbOk.Enabled:=True;
bbOutputC.Enabled:=False;
bbOutputnC.Enabled:=False;
ok6:=true;
okt:=7;
del[i]:=3;
inc(i);
//top(z);
end;

procedure TForm2.bbOutputDClick(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+'D';
bbTere.Enabled:=True;
bbOk.Enabled:=True;
bbOutputD.Enabled:=False;
bbOutputnD.Enabled:=False;
ok7:=true;
okt:=4;
del[i]:=8;
inc(i);
//top(z);
end;

procedure TForm2.bbOutputnDClick(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+'nD';
bbTere.Enabled:=True;
bbOk.Enabled:=True;
bbOutputD.Enabled:=False;
bbOutputnD.Enabled:=False;
ok8:=true;
okt:=8;
del[i]:=4;
inc(i);
//top(z);
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
//for i:=1 to 8 do
//begin
case okt of
1: bbOutputnA.Enabled:=True;
2: bbOutputnB.Enabled:=True;
3: bbOutputnC.Enabled:=True;
4: bbOutputnD.Enabled:=True;
5: bbOutputA.Enabled:=True;
6: bbOutputB.Enabled:=True;
7: bbOutputC.Enabled:=True;
8: bbOutputD.Enabled:=True;
9: bbTere.Enabled:=True;
end;
//okt:=0;
//end;
end;

procedure TForm2.DeletClick(Sender: TObject);
begin
doobl:=edit1.Text;
edit1.clear;
if i>1 then
begin
if del[i-1]>=5 then
for j:=1 to (Length(doobl)-1) do
edit1.Text:=edit1.Text+doobl[j];
if del[i-1]<5 then
for j:=1 to (Length(doobl)-2) do
edit1.Text:=edit1.Text+doobl[j];
i:=i-1;
okt:=del[i];
bbTere.Enabled:=False;
FormCreate(z);
end;

//form1.ABCD(z);
end;

end.