char 的使用

procedure arrayAssignment(Src: array of AnsiChar;var Target: array of AnsiChar);
var
  i, j: Integer;
begin
  i := length(Src);
  j := length(Target);
  if j > i then
    j := i;
  for i := 0 to j - 1 do
  begin
    try
      Target[i] := Src[i];
    except
    end;
  end;
end;

StrCopy(ickr310.ickbh,pchar(Spedt_kh.Text));