Inherits from
TForm
procedure ClearButtonClick(Sender: TObject);
If Pos('-',Edit1.
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.
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
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;
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
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;