Помогите разобраться, как можно записать массив в TValue. Пробовал следующим образом:
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.Rtti,
System.SysUtils,
System.TypInfo;
procedure TestArrayTValue;
var
FValue: TValue;
FInputArray: TArray<String>;
FInputValue: TArray<TValue>;
I: Integer;
Begin
FInputArray := ['1', '2', '3'];
SetLength(FInputValue, length(FInputArray));
for I := Low(FInputValue) to High(FInputValue) do
FInputValue[I] := FInputArray[I];
FValue.FromArray(PTypeInfo(FInputValue), FInputValue);
End;
begin
try
{ TODO -oUser -cConsole Main : Insert code here }
TestArrayTValue;
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
end.
но к сожалению ошибка: