| Class TForm1 (unit UComp) |
TForm
Test program for the Unsigned unit. Enter two values and press the appropriate button to see the result. Click the Compare button to run CompareUnsigned. Click the Test button to run random tests, comparing with a 386-based oracle. Copyright © 1995 Tempest Software
| Constructors |
| Functions |
procedure CompareButtonClick(Sender: TObject);
procedure DivButtonClick(Sender: TObject);
procedure EQButtonClick(Sender: TObject);
procedure GEButtonClick(Sender: TObject);
procedure GTButtonClick(Sender: TObject);
procedure LEButtonClick(Sender: TObject);
procedure LTButtonClick(Sender: TObject);
procedure ModButtonClick(Sender: TObject);
procedure NEButtonClick(Sender: TObject);
procedure Num1Change(Sender: TObject);
procedure Num2Change(Sender: TObject);
procedure TestButtonClick(Sender: TObject);
procedure UIntCompareButtonClick(Sender: TObject);
procedure SetResult(Value: Boolean);
function Value1: LongInt;
function Value2: LongInt;| Properties |
| Events |
| Variables |
CompareButton : TButton;
DivButton : TButton;
EQButton : TButton;
GEButton : TButton;
GTButton : TButton;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
LEButton : TButton;
LTButton : TButton;
ModButton : TButton;
NEButton : TButton;
Num1 : TEdit;
Num2 : TEdit;
Result : TEdit;
TestButton : TButton;
UInt1 : TEdit;
UInt2 : TEdit;
UIntCompareButton : TButton;| Constructors |
| Functions |
procedure CompareButtonClick(Sender: TObject);
procedure DivButtonClick(Sender: TObject);
procedure EQButtonClick(Sender: TObject);
procedure GEButtonClick(Sender: TObject);
procedure GTButtonClick(Sender: TObject);
procedure LEButtonClick(Sender: TObject);
procedure LTButtonClick(Sender: TObject);
procedure ModButtonClick(Sender: TObject);
procedure NEButtonClick(Sender: TObject);
procedure Num1Change(Sender: TObject);
procedure Num2Change(Sender: TObject);
procedure TestButtonClick(Sender: TObject);Remember Value between calls to the random tester.
procedure UIntCompareButtonClick(Sender: TObject);
procedure SetResult(Value: Boolean);
function Value1: LongInt;
function Value2: LongInt;| Properties |
| Events |
| Variables |
CompareButton : TButton;
DivButton : TButton;
EQButton : TButton;
GEButton : TButton;
GTButton : TButton;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
LEButton : TButton;
LTButton : TButton;
ModButton : TButton;
NEButton : TButton;
Num1 : TEdit;
Num2 : TEdit;
Result : TEdit;
TestButton : TButton;
UInt1 : TEdit;
UInt2 : TEdit;
UIntCompareButton : TButton;