Changeset 4 for ObjectBaseTypes/UObjectByte.pas

Timestamp:

Jul 27, 2009, 3:19:14 PM (15 years ago)

Author:

george

Message:

• Přidáno: Objektová třída TPoint, TDouble.

Location:

ObjectBaseTypes

Files:

• . (modified) (1 prop)
• UObjectByte.pas (modified) (3 diffs)

ObjectBaseTypes

@@ -3 +3 @@
 TestApplication.res
 *.dcu
+*.~dsk

@@ -3 +3 @@
 TestApplication.res
 *.dcu
+*.~dsk

ObjectBaseTypes/UObjectByte.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, UObjectTypeBase, UInterfacedBits;
+  Classes, SysUtils, UObjectTypeBase, UInterfacedBits, UObjectNumber, UObjectBoolean;
 
 type
-  TByte = class(TInterfacedObject, IAssignable)
+  TByte = class(TInterfacedObject, IAssignable, IOrderable)
   private
     function GetAsBits: TInterfacedBits;
@@ -14 +14 @@
     Value: Byte;
     procedure Assign(Source: TInterfacedObject);
+    function HigherThen(Operand: IOrderable): TBoolean;
+    function LowerThan(Operand: IOrderable): TBoolean;
+    function Max(Operand1, Operand2: IOrderable): IOrderable;
+    function Min(Operand1, Operand2: IOrderable): IOrderable;
     property AsBits: TInterfacedBits read GetAsBits write SetAsBits;
   end;
@@ -37 +41 @@
 end;
 
+function TByte.HigherThen(Operand: IOrderable): TBoolean;
+begin
+
+end;
+
+function TByte.LowerThan(Operand: IOrderable): TBoolean;
+begin
+
+end;
+
+function TByte.Max(Operand1, Operand2: IOrderable): IOrderable;
+begin
+
+end;
+
+function TByte.Min(Operand1, Operand2: IOrderable): IOrderable;
+begin
+
+end;
+
 procedure TByte.SetAsBits(const Value: TInterfacedBits);
 var

@@ -3 +3 @@
 TestApplication.res
 *.dcu
+*.~dsk