| Class TForm1 (unit ext2) |
TForm
| Constructors |
| Functions |
procedure ClearButtonClick(Sender: TObject);
procedure DelimButtonClick(Sender: TObject);
procedure Dig0Click(Sender: TObject);
procedure Dig1Click(Sender: TObject);
procedure Dig2Click(Sender: TObject);
procedure Dig3Click(Sender: TObject);
procedure Dig4Click(Sender: TObject);
procedure Dig5Click(Sender: TObject);
procedure Dig6Click(Sender: TObject);
procedure Dig7Click(Sender: TObject);
procedure Dig8Click(Sender: TObject);
procedure Dig9Click(Sender: TObject);
procedure DigPlusMinusClick(Sender: TObject);
procedure EnterButtonClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure MinusButtonClick(Sender: TObject);
procedure PlusButtonClick(Sender: TObject);
procedure SlashButtonClick(Sender: TObject);
procedure StarButtonClick(Sender: TObject);
procedure DigitInsert(Const SSS:String);
procedure OpAction(OCode:Integer);| Properties |
| Events |
| Variables |
ClearButton : TButton;
DelimButton : TButton;
Dig0 : TButton;
Dig1 : TButton;
Dig2 : TButton;
Dig3 : TButton;
Dig4 : TButton;
Dig5 : TButton;
Dig6 : TButton;
Dig7 : TButton;
Dig8 : TButton;
Dig9 : TButton;
DigPlusMinus : TButton;
Edit1 : TEdit;
EnterButton : TButton;
MinusButton : TButton;
PlusButton : TButton;
SlashButton : TButton;
StarButton : TButton;
InOp : Boolean;
OpCode : Integer;
PrevText : String;| Constructors |
| Functions |
procedure ClearButtonClick(Sender: TObject);If Pos('-',Edit1.Text)=1 then begin S:=Edit1.Text; Delete(S,1,1); Edit1.Text:=S; end else Edit1.Text:='-'+Edit1.Text;
procedure DelimButtonClick(Sender: TObject);
procedure Dig0Click(Sender: TObject);
procedure Dig1Click(Sender: TObject);
procedure Dig2Click(Sender: TObject);
procedure Dig3Click(Sender: TObject);
procedure Dig4Click(Sender: TObject);
procedure Dig5Click(Sender: TObject);
procedure Dig6Click(Sender: TObject);
procedure Dig7Click(Sender: TObject);
procedure Dig8Click(Sender: TObject);
procedure Dig9Click(Sender: TObject);
procedure DigPlusMinusClick(Sender: TObject);
procedure EnterButtonClick(Sender: TObject);If Edit1.Text='' then Edit1.Text:='0'; If Pos(',',Edit1.Text)=0 then Edit1.Text:=Edit1.Text+',';
procedure FormCreate(Sender: TObject);
procedure MinusButtonClick(Sender: TObject);
procedure PlusButtonClick(Sender: TObject);
procedure SlashButtonClick(Sender: TObject);
procedure StarButtonClick(Sender: TObject);
procedure DigitInsert(Const SSS:String);
procedure OpAction(OCode:Integer);- 0 + 1 * 2 / 3
| Properties |
| Events |
| Variables |
ClearButton : TButton;
DelimButton : TButton;
Dig0 : TButton;
Dig1 : TButton;
Dig2 : TButton;
Dig3 : TButton;
Dig4 : TButton;
Dig5 : TButton;
Dig6 : TButton;
Dig7 : TButton;
Dig8 : TButton;
Dig9 : TButton;
DigPlusMinus : TButton;
Edit1 : TEdit;
EnterButton : TButton;
MinusButton : TButton;
PlusButton : TButton;
SlashButton : TButton;
StarButton : TButton;
InOp : Boolean;
OpCode : Integer;
PrevText : String;