Class TForm1 (unit ext2)

Inherits from

TForm

Constructors



Functions

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

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;