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));

posted on 2013-01-10 23:22 幻劫阅读(201) 评论(0) 编辑收藏举报