Changeset 32 for ObjectBaseTypes/Level 1

Timestamp:

Jun 24, 2010, 4:18:55 PM (14 years ago)

Author:

george

Message:

• Přidáno: Třída TSubStream pro transparentní mapování podproudu do jiného proudu.

Location:

ObjectBaseTypes/Level 1

Files:

• UObjectByte.pas (modified) (4 diffs)
• UObjectTypeBase.pas (modified) (1 diff)

ObjectBaseTypes/Level 1/UObjectByte.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, UObjectTypeBase, UInterfacedBits, UObjectBoolean;
+  Classes, SysUtils, UObjectTypeBase, UObjectBoolean;
 
 type
   TByte = class(TInterfacedObject, IAssignable, IOrderable, IComparable)
-  private
-    function GetAsBits: TInterfacedBits;
-    procedure SetAsBits(const Value: TInterfacedBits);
   public
     Value: Byte;
@@ -18 +15 @@
     function Max(Operand1, Operand2: IOrderable): IOrderable;
     function Min(Operand1, Operand2: IOrderable): IOrderable;
-    property AsBits: TInterfacedBits read GetAsBits write SetAsBits;
     function EqualTo(Operand: IComparable): TBoolean;
     function Predecessor: IOrderable;
@@ -39 +35 @@
 begin
 
-end;
-
-function TByte.GetAsBits: TInterfacedBits;
-var
-  I: Integer;
-begin
-  Result := TInterfacedBits.Create;
-  Result.Size := 8;
-  for I := 0 to Result.Size - 1 do
-    Result[I] := ((Value shr I) and 1) = 1;
 end;
 
@@ -86 +72 @@
 end;
 
-procedure TByte.SetAsBits(const Value: TInterfacedBits);
-var
-  Count: Integer;
-  I: Integer;
-begin
-  Count := 8;
-  if Value.Size > 8 then Count := 8;
-  if Value.Size < 8 then Count := Value.Size;
-  Self.Value := 0;
-  for I := 0 to Count - 1 do
-    Self.Value := Self.Value or (Ord(Value[I]) shl I);
-end;
-
 function TByte.Successor: IOrderable;
 begin

ObjectBaseTypes/Level 1/UObjectTypeBase.pas

@@ -18 +18 @@
 
   IStreamable = interface
-    function GetStream: TStream;
+    procedure GetStream(Stream: TStream);
     procedure SetStrem(Stream: TStream);
   end;