摘要： 从一个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 do10 begin11 try12 Target[i] := Src[i];13 ex... 阅读全文