TStringDynArray 和String 类型怎样相互转换??

Question

请问:
TStringDynArray 和String 类型怎样相互转换??

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  StringDynArray: TStringDynArray;
begin
  SetLength(StringDynArray, 2);
  StringDynArray[0] := 'Hello ';
  StringDynArray[1] := 'World';
  ShowMessage(string(StringDynArray[0])); //这样OK
end;写一个函数就可以了function StringDynArrayToString(AStringDynArray: TStringDynArray): string;
var
  I: Integer;
begin
  for I := 0 to High(AStringDynArray) do
    Result := Result + AStringDynArray[I];
end;

Answer 2

uses Variants;
//Creates a dynamic array from a Variant.
procedure DynArrayFromVariant(var DynArray: Pointer; const V: Variant; TypeInfo: Pointer);//Creates a Variant array from a dynamic array.
procedure DynArrayToVariant(var V: Variant; const DynArray: Pointer; TypeInfo: Pointer);