char 的使用

从一个char数组到别外一个char数组 
 1 procedure arrayAssignment(Src: array of AnsiChar;var Target: array of AnsiChar);
 2 var
 3   i, j: Integer;
 4 begin
 5   i := length(Src);
 6   j := length(Target);
 7   if j > i then
 8     j := i;
 9   for i := 0 to j - 1 do
10   begin
11     try
12       Target[i] := Src[i];
13     except
14     end;
15   end;
16 end;
1 StrCopy(ickr310.ickbh,pchar(Spedt_kh.Text));
【推广】 免费学中医，健康全家人
原文地址：https://www.cnblogs.com/jieke/p/2855630.html