在Delphi中有将 integer 数组中的值赋给 integer类型的方法吗？请高手回答！！！急！！！！！（高分）

Question

我的部分程序是：
Var
    In_Data: array[1..3] of integer;
    str:  String;
    I_N,group,road :array[1..3] of integer; // group 组  road 路
begin
   for T1:=1 to paramcount do
   begin
   if ParamStr(T1)<>'' then //showmessage(ParamStr(i));
   begin
   str:= ParamStr(T1);
   In_Data[1]:=strtoint(str);
   I_N:= int(In_Data[1]);
end
但是编译时在I_N:= int(In_Data[1]);出现一下错误： Incompatible types: 'Array' and 'Extended'！！！！！请高手指教！！！！

Answer 1

不明白你的意思，，，你把I_N定义为Integer类型不就可以了

Answer 2

不知道楼主的这句I_N:= int(In_Data[1]); 是否是想把整个In_Data直接复制给I_N
如果是的话，可以这样使用
CopyMemory(@I_N,@In_Data,SizeOf(I_N));
直接复制内存过去。如果是想复制第一个单元的话，可以I_N[1] := In_Data[1];