Class TForm1 (unit UComp)

Inherits from

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);

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;



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;