Changeset 4 for ObjectBaseTypes/UObjectBoolean.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)
• UObjectBoolean.pas (modified) (5 diffs)

ObjectBaseTypes

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

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

ObjectBaseTypes/UObjectBoolean.pas

@@ -11 +11 @@
   IComparable = interface
     function EqualTo(Operand: TInterfacedObject): TBoolean;
-    function HigherThen(Operand: TInterfacedObject): TBoolean;
-    function LowerThan(Operand: TInterfacedObject): TBoolean;
   end;
 
-  TBoolean = class(TInterfacedObject, IAssignable, IComparable, IOrdinal)
+  TBoolean = class(TInterfacedObject, IComparable, IAssignable)
     Value: Boolean;
-    function Ordinal: IOrdinal;
-    function Predecessor: IOrdinal;
-    function Successor: IOrdinal;
-    function Low: IOrdinal;
-    function High: IOrdinal;
     procedure Invert;
     function EqualTo(Operand: TInterfacedObject): TBoolean;
@@ -61 +54 @@
 end;
 
-function TBoolean.High: IOrdinal;
-begin
-  Result := TBoolean.Create;
-  TBoolean(Result).Value := True;
-end;
-
 function TBoolean.HigherThen(Operand: TInterfacedObject): TBoolean;
 begin
@@ -80 +67 @@
 end;
 
-function TBoolean.Low: IOrdinal;
-begin
-  Result := TBoolean.Create;
-  TBoolean(Result).Value := False;
-end;
-
 function TBoolean.LowerThan(Operand: TInterfacedObject): TBoolean;
 begin
@@ -92 +73 @@
     Result.Value := Value < TBoolean(Operand).Value;
   end else raise EInvalidCast.Create('Typecast error');
-end;
-
-function TBoolean.Ordinal: IOrdinal;
-begin
-  Result := TInteger.Create;
-  TInteger(Result).Value := Integer(Value);
 end;
 
@@ -108 +83 @@
 end;
 
-function TBoolean.Predecessor: IOrdinal;
-begin
-  raise ENotImplemented.Create('Not implemented');
-end;
-
-function TBoolean.Successor: IOrdinal;
-begin
-
-end;
 
 end.

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