我最近编了一个程序
首先定义了几个boolean型的数组,但是搞不清楚初始默认值是多少。
然后就想编一个通用的初始化boolean数组的子程序,但是用了指针之后就显示编译错误。ErrDisp: array[1..100] of boolean;
ErrSave: array[1..100] of boolean;type
Blpoint=^boolean;procedure IniArray(p: Blpoint);
var
i: byte;
begin
for i:=1 to 100 do //这个地方本想用length函数,但是用不了
p^[i]:=false;
end;请问怎么解决呢
首先定义了几个boolean型的数组,但是搞不清楚初始默认值是多少。
然后就想编一个通用的初始化boolean数组的子程序,但是用了指针之后就显示编译错误。ErrDisp: array[1..100] of boolean;
ErrSave: array[1..100] of boolean;type
Blpoint=^boolean;procedure IniArray(p: Blpoint);
var
i: byte;
begin
for i:=1 to 100 do //这个地方本想用length函数,但是用不了
p^[i]:=false;
end;请问怎么解决呢
解决方案 »
- delphi 中 怎样在d:\下创建一个名为 xx.txt的文本文件呢 ?
- 如何实现象delphi 代码编辑器里message view 、code explorer 样式的 带关闭按钮 可停靠的面板?
- 如何用TADODataSet实现类似TClientDataSet的fkInternalCalc类型字段?
- 本人CSDN第一个问题:access数据库怎样传输,中间用什么文件格式
- 头晕,不想动。帮偶写个函数吧。得到结果就结贴
- 请问,如何将一个wav文件,转换为其他的格式,比如mp3等?
- 怎样在dbgrid中显示speedbutton,点击它弹出dblookuplist?
- 在服务器上写好服务程序,在客户端编写客户程序时,我的DCOMConnection组件为什么看不到ServerName和ServerGUID?
- 怎样控制toolbar的自动生成菜单快捷键的问题
- 页面上的机器人怎么做?
- delphi2007中,写OCX控件的问题,在线等待....
- groupbox
Blpoint 只是个指针,length肯定不行, (p: Blpoint);
P这个参数应该是数组,猜测你的意思
type
Blpoint=^ErrDisp;
这个地方编译出现错误我本来是想编一个函数,只要把数组的初地址赋给指针p,就能初始化这个数组以前用c是可以的,我学delphi不久,不是很懂
是不是所有需要初始化的数组都要定义一遍?
就像:
type
Blpoint=^Etype;
B2point=^ErrDisp;
TMyBoolArray = array of boolean;
var
ErrDisp: TMyBoolArray;
ErrSave: TMyBoolArray;
procedure InitArray(BoolArray: TMyBoolArray);
var
i: integer;
begin
for i := Low(BoolArray) to High(BoolArray) do
begin
BoolArray[i] := False;
end;
end;
begin
SetLength(ErrDisp, 100);
InitArray(ErrDisp);
SetLength(ErrSave, 100);
InitArray(ErrSave);
ErrSave: array[1..100] of boolean;
定义成全局变量,里边参数都是FALSE的