From 2ca960f19c69e64e4cf5751476655df7d69b494f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Stefan=20M=C3=BCller?= <stefan.mueller@aksdb.de>
Date: Mon, 20 May 2024 00:59:40 +0200
Subject: [PATCH] Added TBigInt.ToString for debugging

---
 UBigInt.pas | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/UBigInt.pas b/UBigInt.pas
index 7d22c07..5a31b72 100644
--- a/UBigInt.pas
+++ b/UBigInt.pas
@@ -78,6 +78,8 @@ type
     class property Zero: TBigInt read GetZero;
     function CompareTo(constref AOther: TBigInt): Integer;
     function TryToInt64(out AOutput: Int64): Boolean;
+    // TODO: ToString is currently for debug output only.
+    function ToString: string;
     class function FromInt64(const AValue: Int64): TBigInt; static;
     class function FromHexadecimalString(const AValue: string): TBigInt; static;
     class function FromBinaryString(const AValue: string): TBigInt; static;
@@ -498,6 +500,21 @@ begin
   end;
 end;
 
+function TBigInt.ToString: string;
+var
+  i: Integer;
+begin
+  if FIsNegative then
+    Result := '-'
+  else
+    Result := '';
+  for i := 0 to Length(FDigits) - 2 do
+    Result := Result + '(' + IntToStr(FDigits[i]) + ' + 2^32 * ';
+  Result := Result + IntToStr(FDigits[Length(FDigits) - 1]);
+  for i := 0 to Length(FDigits) - 2 do
+    Result := Result + ')';
+end;
+
 class function TBigInt.FromInt64(const AValue: Int64): TBigInt;
 var
   absVal: Int64;