数组赋值问题 to Crob(我干嘛这么帅) 那你那一段‘数据区域’,又是怎样赋的值呢???? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 avr i:integer;while i<256 do begin 数组[i]:=0; i:=i+1; end; 可以这样吗?arr:=['','','',''];没试过,仅供参考 不知道你在说什么如果是赋值那就是: tongki_8() 那样的 我自己知道一种赋值方法,定义动态数组,然后用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]); 要直接赋值还不如直接用内存操作,如下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;要用数组还是做个循环来赋值吧 就是定义时赋值了.其实Delphi中 var myArray:array[0..5]of integer=(1,2,3,4,5,6);和C中的 int myArray[6]={1,2,3,4,5,6}是一样的... 帮忙看看jedi中的getadaptersinfo为啥返回不对 请大家帮我忧化一下我的这个SQL语句。我用的是ADO访问数据库 放分,发布软件请大家支持! 我现已经装了DElphi7和Delphi8了!我想装VS.Net可以吗? 关于TIdHttp断点续传下载与ODBC同使用时的冲突问题 为什么我把窗口的属性设成置顶了,但是在使用过程中有时候会失效呢? 在access表中如何实现以下查询? 谢谢vcshcn(黑色的星星)帮我得忙,给我源码谢谢 请指导一二,各位大虾! 日期转换 有台笔记本是我的梦想! 请问如何判断一个注册表的键值是否存在?希望详细一点,谢谢。!!
i:integer;while i<256 do
begin
数组[i]:=0;
i:=i+1;
end;
arr:=['','','',''];
没试过,仅供参考
如果是赋值那就是: tongki_8() 那样的
但是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]);
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;要用数组还是做个循环来赋值吧
其实Delphi中 var myArray:array[0..5]of integer=(1,2,3,4,5,6);
和C中的 int myArray[6]={1,2,3,4,5,6}是一样的...