如何将TList的值赋给一个variant变量？

Question

如题

Answer 1

TList的Items属性吗？ 说清楚一些, 如果是Items是不行的, 因为Variant不支持指针.

Answer 2

a: variant;
  b: TList;
begin
  ...
  a := integer(b);
//存的是list的指针，如果要存list中的内容，看楼下

Answer 3

var
  i: integer;
  a: variant;
  b: TList;
begin
  b := TList.Create;
  b.Add(Pointer(111));
  b.Add(Pointer(222));
  b.Add(Pointer(333));  a := VarArrayCreate([0, b.Count - 1], varVariant);
  for i := 0 to b.Count - 1 do
    a[i] := integer(b[i]);  for i := 0 to VarArrayHighBound(a, 1) do
    showmessage(inttostr(a[i]));  b.Free;to cncharles(旺仔) ,指针就当它是integer型