| Class TMain (unit MainUnit) |
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;