是Delphi的Bug吗?(80分)

C

chcw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-02

• #1

我在一个函数中执行以下语句:
var
; a: array of Byte;
begin
; SetLength(a, 20);
; FillChar(a, 20, 0);
; a[1] := 1;
end;
结果执行到第三句的时候就出错,请问这是什么原因？

 

V

VGA

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-02

• #2

var
; a: array[1..20] of Byte;
begin
; FillChar(a, 20, 0);
; a[1] := 1;
end;


这样就 OK

 

V

VGA

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-02

• #3

实际是FillChar(a, 20, 0);的问题。
Warning: This function does not perform any range checking.

 

江

江维

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-02

• #4

同意VGA！

 

D

dadabox1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-02

• #5

难道就不能用在动态生成的数组吗?

 

T

true64

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-02

• #6

动态生成的数组当然可以用，不过你的用法有问题
这样用：
var
; a: array of Byte;
begin
; SetLength(a, 20);
; FillChar(a[0], 20, 0);
; a[1] := 1;
end;

原因：
Delphi的动态内存管理。a是一个指针，它指向的地方存放的是该数组的起始地址，
长度，类型等信息（根据我的经验），a[0]才是该动态数组的真正起始地址
Do you konw?

 

X

X-MAX

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-02

• #7

我不知道你的FillChar(a, 20, 0)有什么用
但是：
var
; a: array of Byte;
begin
; FillChar(a, SizeOf(a), 0);
; SetLength(a, 20);
; a[1] := 1;
end;

 

C

chcw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-02

• #8

to X-MAX:
; FillChar的目的就是把数组a的内容全部清0。你写的那段代码倒有点匪夷所思，a没分配
空间就来个FillChar，此为何意？

 

X

X-MAX

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-02

• #9

FillChar不知怎么会出错?
当填的对象是动态数组就出错，静态就不会。

用这个代替吧^_^ :
var
; a: array of Byte;
; i: integer;
begin
; SetLength(a, 20);
; for i := Low(a) to High(a) do
; ; a:=0;
end;

 

Z

zyy04

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-18

• #10

多人接受答案了。