engName:array[1..100] of char; 我應該怎樣在代碼中給engName賦值呢?不要
engName:array[1..100] of char; '0123456789ABCDEF';這種。

解决方案 »

  1.   

    to ruihuahan:
    如果我要
    engName的值是'0123456789ABCDEF',我賦這樣一個值,難道隻能循環16次去一一賦值嗎?
    我想要一種更簡單的方法?
      

  2.   

    var
      i: integer
    begin
      for i := 0 to 99 do
        engName[i] := Name;
    end;
      

  3.   

    string类型不是可以做为CHAR[]来处理吗,倒过来行吗
      

  4.   

    strpcopy(@engName,'0123456789ABCDEF');
      

  5.   

    StrPCopy copies Source into a null-terminated string Dest. It returns a pointer to Dest.StrPCopy does not perform any length checking. The destination buffer must have room for at least Length(Source)+1 characters.
      

  6.   

    strpcopy(@engName,'0123456789ABCDEF');
    或用数组
     var  str1:string;
          i:integer;
    begin
     i:=0;str1:='0123456789ABCDEF';
     while (str[i]<>'F') do   //应该不为‘\0',只是针对这道题
       begin
         engname[i]:=str[i];
         i:=i+1;
      end;
    i:=i+1;
    engname[i]:=str[i];
    end;