请问怎样将一个integer类型的数据拷贝到 char类型的数组里

Question

请问怎样将一个integer类型的数据拷贝到 char类型的数组里     
我想将如 
var
 i：integer;
 s：array[0..4] of char;
begin
 i:= 123;
 //怎样将i中的值拷贝到s数组中？
end;

Answer 1

var
 i：integer;
 s：array[0..4] of char;
begin
 i:= 123;
 //怎样将i中的值拷贝到s数组中？
end;是这样吗？s[0]='1',s[1]='2',s[2]='3';
还是这样：CopyMemory(@s, @i, SizeOf(i));的结果？

Answer 2

var
 i：integer;
 s：array[0..4] of char;
 tmpStr : string;
begin
  i:= 123;
  tmpStr := format('%.4d',[i]);
 
  for i := 0 to 4 do
  begin
     s[i] := tmpStr[i+1];
  end;
 
end;