Changeset 125

Timestamp:

Jan 14, 2011, 2:16:07 PM (13 years ago)

Author:

george

Message:

• Added: Just started DynNumber class development.

Location:

CoolStreaming

Files:

• CoolStreaming.lpk (modified) (2 diffs)
• CoolStreaming.pas (modified) (1 diff)
• Demo/DynNumber (added)
• Demo/DynNumber/DynNumberDemo.ico (added)
• Demo/DynNumber/DynNumberDemo.lpi (added)
• Demo/DynNumber/DynNumberDemo.lpr (added)
• Demo/DynNumber/DynNumberDemo.res (added)
• Demo/DynNumber/UMainForm.lfm (added)
• Demo/DynNumber/UMainForm.pas (added)
• UBitStream.pas (modified) (2 diffs)
• UDynNumber.pas (added)
• UVarBlockSerializer.pas (modified) (1 diff)

CoolStreaming/CoolStreaming.lpk

@@ -18 +18 @@
     <License Value="GNU/GPL"/>
     <Version Minor="1"/>
-    <Files Count="6">
+    <Files Count="7">
       <Item1>
         <Filename Value="UStreamHelper.pas"/>
@@ -43 +43 @@
         <UnitName Value="UBitStream"/>
       </Item6>
+      <Item7>
+        <Filename Value="UDynNumber.pas"/>
+        <UnitName Value="UDynNumber"/>
+      </Item7>
     </Files>
     <Type Value="RunAndDesignTime"/>

CoolStreaming/CoolStreaming.pas

@@ -9 +9 @@
 uses
     UStreamHelper, USubStream, UVarBlockSerializer, UBufferedFileStream, 
-  UTextFileStream, UBitStream, LazarusPackageIntf;
+  UTextFileStream, UBitStream, UDynNumber, LazarusPackageIntf;
 
 implementation

CoolStreaming/UBitStream.pas

@@ -78 +78 @@
 function TBitStream.GetSize: LongInt;
 var
-  p: LongInt;
-begin
-  p := Seek(0, soCurrent);
+  P: LongInt;
+begin
+  P := Seek(0, soCurrent);
   GetSize := Seek(0, soEnd);
-  Seek(p, soBeginning);
+  Seek(P, soBeginning);
 end;
 
@@ -182 +182 @@
 end;
 
-procedure TMemoryBitStream.SetSize(const AValue:LongInt);
+procedure TMemoryBitStream.SetSize(const AValue: LongInt);
 begin
   FSize := AValue;

CoolStreaming/UVarBlockSerializer.pas

@@ -692 +692 @@
 end;
 
-function TVarBlockIndexed.TestIndex(Index:Integer):Boolean;
+function TVarBlockIndexed.TestIndex(Index: Integer):Boolean;
 begin
   if (Index >= 0) and (Index < Items.Count) then