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;