Data Types

Src/Data/Myc.Data.Types.Arrays.pas

@@ -28,6 +28,7 @@ type
         FArrayType: IDataArrayType;
         FItems: TArray<IDataValue>;
         function GetDataType: IDataType;
+        function GetAsString: string;
         function GetElementCount: Integer;
         function GetItem(Idx: Integer): IDataValue;
     public
@@ -57,6 +58,27 @@ begin
     Result := FArrayType;
 end;
 
+function TImplDataArrayValue.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 TImplDataArrayValue.GetElementCount: Integer;
 begin
     Result := Length(FItems);