to Crob(我干嘛这么帅) 那你那一段‘数据区域’,又是怎样赋的值呢????

解决方案 »

  1.   

    avr
       i:integer;while i<256 do  
       begin
         数组[i]:=0;
         i:=i+1;
       end;
      

  2.   

    可以这样吗?
    arr:=['','','',''];
    没试过,仅供参考 
      

  3.   

    不知道你在说什么
    如果是赋值那就是: tongki_8() 那样的
      

  4.   

    我自己知道一种赋值方法,定义动态数组,然后用VarArrayOf函数赋值
    但是256个数组元素不知道是不是太多,反正出问题
    =================
      auchCRCHi:=VarArrayOf([$0, $C1, $81, $40, $1, $C0, $80, $41, $1, $C0, $80, $41, $0, $C1, $81, $40, $1, $C0, $80, $41, $0, $C1, $81, $40, $0, $C1, $81, $40, $1, $C0, $80, $41, $1, $C0, $80, $41, $0, $C1, $81, $40,
                  $0, $C1, $81, $40, $1, $C0, $80, $41, $0, $C1, $81, $40, $1, $C0, $80, $41, $1, $C0, $80, $41, $0, $C1, $81, $40, $1, $C0, $80, $41, $0, $C1, $81, $40, $0, $C1, $81, $40, $1, $C0, $80, $41,
                  $0, $C1, $81, $40, $1, $C0, $80, $41, $1, $C0, $80, $41, $0, $C1, $81, $40, $0, $C1, $81, $40, $1, $C0, $80, $41, $1, $C0, $80, $41, $0, $C1, $81, $40, $1, $C0, $80, $41, $0, $C1, $81, $40,
                  $0, $C1, $81, $40, $1, $C0, $80, $41, $1, $C0, $80, $41, $0, $C1, $81, $40, $0, $C1, $81, $40, $1, $C0, $80, $41, $0, $C1, $81, $40, $1, $C0, $80, $41, $1, $C0, $80, $41, $0, $C1, $81, $40,
                  $0, $C1, $81, $40, $1, $C0, $80, $41, $1, $C0, $80, $41, $0, $C1, $81, $40, $1, $C0, $80, $41, $0, $C1, $81, $40, $0, $C1, $81, $40, $1, $C0, $80, $41, $0, $C1, $81, $40, $1, $C0, $80, $41,
                  $1, $C0, $80, $41, $0, $C1, $81, $40, $1, $C0, $80, $41, $0, $C1, $81, $40, $0, $C1, $81, $40, $1, $C0, $80, $41, $1, $C0, $80, $41, $0, $C1, $81, $40, $0, $C1, $81, $40, $1, $C0, $80, $41,
                  $0, $C1, $81, $40, $1, $C0, $80, $41, $1, $C0, $80, $41, $0, $C1, $81, $40]);
      

  5.   

    要直接赋值还不如直接用内存操作,如下procedure TForm1.Button1Click(Sender: TObject);
    var p: pointer;
        charValue: char;
    begin
      p := AllocMem(10);
      move('0123456789', p^, 10);
      charValue := char(p^);//charValue取到值'0';
      p := pointer(DWORD(p) + 1);
      charValue := char(p^);//charValue取到值'1';
      
      FreeMem(p, 10);
    end;要用数组还是做个循环来赋值吧
      

  6.   

    就是定义时赋值了.
    其实Delphi中 var  myArray:array[0..5]of integer=(1,2,3,4,5,6);
    和C中的  int myArray[6]={1,2,3,4,5,6}是一样的...