Changeset 125


Ignore:
Timestamp:
Jan 14, 2011, 2:16:07 PM (14 years ago)
Author:
george
Message:
  • Added: Just started DynNumber class development.
Location:
CoolStreaming
Files:
8 added
4 edited

Legend:

Unmodified
Added
Removed
  • CoolStreaming/CoolStreaming.lpk

    r122 r125  
    1818    <License Value="GNU/GPL"/>
    1919    <Version Minor="1"/>
    20     <Files Count="6">
     20    <Files Count="7">
    2121      <Item1>
    2222        <Filename Value="UStreamHelper.pas"/>
     
    4343        <UnitName Value="UBitStream"/>
    4444      </Item6>
     45      <Item7>
     46        <Filename Value="UDynNumber.pas"/>
     47        <UnitName Value="UDynNumber"/>
     48      </Item7>
    4549    </Files>
    4650    <Type Value="RunAndDesignTime"/>
  • CoolStreaming/CoolStreaming.pas

    r122 r125  
    99uses
    1010    UStreamHelper, USubStream, UVarBlockSerializer, UBufferedFileStream,
    11   UTextFileStream, UBitStream, LazarusPackageIntf;
     11  UTextFileStream, UBitStream, UDynNumber, LazarusPackageIntf;
    1212
    1313implementation
  • CoolStreaming/UBitStream.pas

    r122 r125  
    7878function TBitStream.GetSize: LongInt;
    7979var
    80   p: LongInt;
    81 begin
    82   p := Seek(0, soCurrent);
     80  P: LongInt;
     81begin
     82  P := Seek(0, soCurrent);
    8383  GetSize := Seek(0, soEnd);
    84   Seek(p, soBeginning);
     84  Seek(P, soBeginning);
    8585end;
    8686
     
    182182end;
    183183
    184 procedure TMemoryBitStream.SetSize(const AValue:LongInt);
     184procedure TMemoryBitStream.SetSize(const AValue: LongInt);
    185185begin
    186186  FSize := AValue;
  • CoolStreaming/UVarBlockSerializer.pas

    r119 r125  
    692692end;
    693693
    694 function TVarBlockIndexed.TestIndex(Index:Integer):Boolean;
     694function TVarBlockIndexed.TestIndex(Index: Integer):Boolean;
    695695begin
    696696  if (Index >= 0) and (Index < Items.Count) then
Note: See TracChangeset for help on using the changeset viewer.