怎么实现常量数组赋值给记录中动态数组()急

如何实现常量数组赋值给记录中动态数组(在线等)急！急！急！
RT

ex.
type 
  Tc=record
  b:array of Integer;
  end;
  const a:array[1..5] of Integer=(1,2,3,4,5);

begin
  //How to assign a to b? 
end;



------解决方案--------------------

Delphi(Pascal) code

var
  c:tc;
begin
  c.b:=@a;
end;

------解决方案--------------------
楼上的没错，不过最好这样

Delphi(Pascal) code

var
  c: Tc;
begin
  c.b := @a;
  SetLength(c.b,5);
end;