Changeset 222 for CoolStreaming/UVarBlockSerializer.pas
- Timestamp:
- Apr 4, 2011, 12:24:18 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
CoolStreaming/UVarBlockSerializer.pas
r174 r222 82 82 procedure WriteVarSInt(Index: Integer; Value: Int64); 83 83 function ReadVarSInt(Index: Integer): Int64; 84 procedure WriteVarFloat(Index: Integer; Value: Double );85 function ReadVarFloat(Index: Integer ): Double;84 procedure WriteVarFloat(Index: Integer; Value: Double; Base: Integer = 2); 85 function ReadVarFloat(Index: Integer; Base: Integer = 2): Double; 86 86 procedure WriteVarString(Index: Integer; Value: string); 87 87 function ReadVarString(Index: Integer): string; … … 657 657 end; 658 658 659 procedure TVarBlockIndexed.WriteVarFloat(Index: Integer; Value:Double );659 procedure TVarBlockIndexed.WriteVarFloat(Index: Integer; Value:Double; Base: Integer = 2); 660 660 begin 661 661 CheckItem(Index); 662 TVarBlockSerializer(Items[Index]).WriteVarFloat(Value );663 end; 664 665 function TVarBlockIndexed.ReadVarFloat(Index: Integer ):Double;662 TVarBlockSerializer(Items[Index]).WriteVarFloat(Value, Base); 663 end; 664 665 function TVarBlockIndexed.ReadVarFloat(Index: Integer; Base: Integer = 2):Double; 666 666 begin 667 667 TVarBlockSerializer(Items[Index]).Stream.Position := 0; 668 Result := TVarBlockSerializer(Items[Index]).ReadVarFloat ;668 Result := TVarBlockSerializer(Items[Index]).ReadVarFloat(Base); 669 669 end; 670 670
Note:
See TracChangeset
for help on using the changeset viewer.