Data Types

Src/Data/Myc.Data.Types.Tuple.pas

@@ -12,6 +12,7 @@ type
     private
         FItems: TArray<IDataValue>;
         function GetDataType: IDataType;
+        function GetAsString: string;
         function GetItemCount: Integer;
         function GetItem(Idx: Integer): IDataValue;
     public
@@ -51,6 +52,27 @@ begin
     Result := TImplDataTupleType.Singleton;
 end;
 
+function TImplDataTupleValue.GetAsString: string;
+var
+    sb: TStringBuilder;
+    i: Integer;
+begin
+    sb := TStringBuilder.Create;
+    try
+        sb.Append('(');
+        for i := 0 to High(FItems) do
+        begin
+            sb.Append(FItems[i].AsString);
+            if (i < High(FItems)) then
+                sb.Append(', ');
+        end;
+        sb.Append(')');
+        Result := sb.ToString;
+    finally
+        sb.Free;
+    end;
+end;
+
 function TImplDataTupleValue.GetItem(Idx: Integer): IDataValue;
 begin
     Result := FItems[Idx];