Changeset 222 for CoolStreaming/UVarBlockSerializer.pas

Timestamp:

Apr 4, 2011, 12:24:18 PM (13 years ago)

Author:

george

Message:

• Přidáno: Jednotka UURI pro práci s textovým umístěním souborů a složek.

File:

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

CoolStreaming/UVarBlockSerializer.pas

@@ -82 +82 @@
     procedure WriteVarSInt(Index: Integer; Value: Int64);
     function ReadVarSInt(Index: Integer): Int64;
-    procedure WriteVarFloat(Index: Integer; Value: Double);
-    function ReadVarFloat(Index: Integer): Double;
+    procedure WriteVarFloat(Index: Integer; Value: Double; Base: Integer = 2);
+    function ReadVarFloat(Index: Integer; Base: Integer = 2): Double;
     procedure WriteVarString(Index: Integer; Value: string);
     function ReadVarString(Index: Integer): string;
@@ -657 +657 @@
 end;
 
-procedure TVarBlockIndexed.WriteVarFloat(Index: Integer; Value:Double);
+procedure TVarBlockIndexed.WriteVarFloat(Index: Integer; Value:Double; Base: Integer = 2);
 begin
   CheckItem(Index);
-  TVarBlockSerializer(Items[Index]).WriteVarFloat(Value);
-end;
-
-function TVarBlockIndexed.ReadVarFloat(Index: Integer):Double;
+  TVarBlockSerializer(Items[Index]).WriteVarFloat(Value, Base);
+end;
+
+function TVarBlockIndexed.ReadVarFloat(Index: Integer; Base: Integer = 2):Double;
 begin
   TVarBlockSerializer(Items[Index]).Stream.Position := 0;
-  Result := TVarBlockSerializer(Items[Index]).ReadVarFloat;
+  Result := TVarBlockSerializer(Items[Index]).ReadVarFloat(Base);
 end;