Changeset 125
- Timestamp:
- Jan 14, 2011, 2:16:07 PM (14 years ago)
- Location:
- CoolStreaming
- Files:
-
- 8 added
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
CoolStreaming/CoolStreaming.lpk
r122 r125 18 18 <License Value="GNU/GPL"/> 19 19 <Version Minor="1"/> 20 <Files Count=" 6">20 <Files Count="7"> 21 21 <Item1> 22 22 <Filename Value="UStreamHelper.pas"/> … … 43 43 <UnitName Value="UBitStream"/> 44 44 </Item6> 45 <Item7> 46 <Filename Value="UDynNumber.pas"/> 47 <UnitName Value="UDynNumber"/> 48 </Item7> 45 49 </Files> 46 50 <Type Value="RunAndDesignTime"/> -
CoolStreaming/CoolStreaming.pas
r122 r125 9 9 uses 10 10 UStreamHelper, USubStream, UVarBlockSerializer, UBufferedFileStream, 11 UTextFileStream, UBitStream, LazarusPackageIntf;11 UTextFileStream, UBitStream, UDynNumber, LazarusPackageIntf; 12 12 13 13 implementation -
CoolStreaming/UBitStream.pas
r122 r125 78 78 function TBitStream.GetSize: LongInt; 79 79 var 80 p: LongInt;81 begin 82 p:= Seek(0, soCurrent);80 P: LongInt; 81 begin 82 P := Seek(0, soCurrent); 83 83 GetSize := Seek(0, soEnd); 84 Seek( p, soBeginning);84 Seek(P, soBeginning); 85 85 end; 86 86 … … 182 182 end; 183 183 184 procedure TMemoryBitStream.SetSize(const AValue: LongInt);184 procedure TMemoryBitStream.SetSize(const AValue: LongInt); 185 185 begin 186 186 FSize := AValue; -
CoolStreaming/UVarBlockSerializer.pas
r119 r125 692 692 end; 693 693 694 function TVarBlockIndexed.TestIndex(Index: Integer):Boolean;694 function TVarBlockIndexed.TestIndex(Index: Integer):Boolean; 695 695 begin 696 696 if (Index >= 0) and (Index < Items.Count) then
Note:
See TracChangeset
for help on using the changeset viewer.