Changeset 51 for branches/ByteArray/BigInt.pas

Timestamp:

Nov 3, 2023, 11:15:31 AM (7 months ago)

Author:

chronos

Message:

• Fixed: Show data content of storage file.

Location:

branches/ByteArray

Files:

• . (modified) (1 prop)
• BigInt.pas (modified) (1 diff)

branches/ByteArray

@@ -6 +6 @@
 ByteArray.res
 ByteArray.dbg
+Storage.dat

@@ -6 +6 @@
 ByteArray.res
 ByteArray.dbg
+Storage.dat

branches/ByteArray/BigInt.pas

@@ -184 +184 @@
 class operator TBigInt.Implicit(A: TBigInt): UInt64;
 begin
-  if A.Size = 8 then Result := PUInt64(@A.FData[0])^
-    else raise Exception.Create(SUnsupportedByteSize);
+  if A.Size = 1 then Result := PUInt8(@A.FData[0])^
+  else if A.Size = 2 then Result := PUInt16(@A.FData[0])^
+  else if A.Size = 4 then Result := PUInt32(@A.FData[0])^
+  else if A.Size = 8 then Result := PUInt64(@A.FData[0])^
+  else raise Exception.Create(SUnsupportedByteSize);
 end;
 
 class operator TBigInt.Implicit(A: TBigInt): Int64;
 begin
-  if A.Size = 8 then Result := PInt64(@A.FData[0])^
-    else raise Exception.Create(SUnsupportedByteSize);
+  if A.Size = 1 then Result := PInt8(@A.FData[0])^
+  else if A.Size = 2 then Result := PInt16(@A.FData[0])^
+  else if A.Size = 4 then Result := PInt32(@A.FData[0])^
+  else if A.Size = 8 then Result := PInt64(@A.FData[0])^
+  else raise Exception.Create(SUnsupportedByteSize);
 end;
 

@@ -6 +6 @@
 ByteArray.res
 ByteArray.dbg
+Storage.dat