Changeset 125 for CoolStreaming/UBitStream.pas

Timestamp:

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

Author:

george

Message:

• Added: Just started DynNumber class development.

File:

• CoolStreaming/UBitStream.pas (modified) (2 diffs)

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;