Changeset 4 for ObjectBaseTypes/UObjectDouble.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)
• UObjectDouble.pas (modified) (1 diff)

ObjectBaseTypes

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

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

ObjectBaseTypes/UObjectDouble.pas

@@ -3 +3 @@
 interface
 
+uses
+  UObjectNumber, UObjectTypeBase, UObjectBoolean;
+
+type
+  TDouble = class(TInterfacedObject, IAssignable, IOrderable)
+    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;
+  end;
+
 implementation
 
+{ TDouble }
+
+procedure TDouble.Assign(Source: TInterfacedObject);
+begin
+
+end;
+
+function TDouble.HigherThen(Operand: IOrderable): TBoolean;
+begin
+
+end;
+
+function TDouble.LowerThan(Operand: IOrderable): TBoolean;
+begin
+
+end;
+
+function TDouble.Max(Operand1, Operand2: IOrderable): IOrderable;
+begin
+
+end;
+
+function TDouble.Min(Operand1, Operand2: IOrderable): IOrderable;
+begin
+
+end;
+
 end.

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