Class TMain (unit MainUnit)
Inherits from
TForm
Constructors
Functions
procedure Calc(Sender: TObject);
procedure Num1KeyPress(Sender: TObject; var Key: Char);
procedure Num2KeyPress(Sender: TObject; var Key: Char);
procedure OperationKeyPress(Sender: TObject; var Key: Char);
function Greater(s1,s2: string): boolean;
function NumAdd(str1,str2: string): string;
function Number(s: string): boolean;
function NumDiv(str1,str2: string): string;
function NumMod(str1,str2: string): string;
function NumMul(str1,str2: string): string;
function NumSub(str1,str2: string): string;
function Zero(s: string): boolean;
Properties
Events
Variables
Add : TRadioButton;
Bevel1 : TBevel;
Divide : TRadioButton;
Modulus : TRadioButton;
Multiply : TRadioButton;
Num1 : TEdit;
Num2 : TEdit;
Result : TEdit;
Subtract : TRadioButton;
Constructors
Functions
procedure Calc(Sender: TObject);
procedure Num1KeyPress(Sender: TObject; var Key: Char);
procedure Num2KeyPress(Sender: TObject; var Key: Char);
procedure OperationKeyPress(Sender: TObject; var Key: Char);
function Greater(s1,s2: string): boolean;
function NumAdd(str1,str2: string): string;
function Number(s: string): boolean;
function NumDiv(str1,str2: string): string;
function NumMod(str1,str2: string): string;
function NumMul(str1,str2: string): string;
function NumSub(str1,str2: string): string;
function Zero(s: string): boolean;
Properties
Events
Variables
Add : TRadioButton;
Bevel1 : TBevel;
Divide : TRadioButton;
Modulus : TRadioButton;
Multiply : TRadioButton;
Num1 : TEdit;
Num2 : TEdit;
Result : TEdit;
Subtract : TRadioButton;