动态数组(100分)

H

hlwbn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-26

• #1

procedure abc(var s:array of integer)；
这里如果我在过程里设置 setLength(s,长度)，编译时会出现“imcompatible type”
的错误，这个是怎么回事？
我要这么用的话，怎么解决呀？

 

L

lht123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-26

• #2

是类型不匹配

 

L

lht123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-26

• #3

把 procedure abc(var s:array of integer)；里的 var 去掉看看

 

H

hlwbn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-26

• #4

去掉也不行

 

L

lht123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-26

• #5

兄弟这是个形参啊!你的实参长度定义了么 匹配么

 

F

foxphone2003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-26

• #6

procedure abc(var s:array of integer)；
好象不能直接传，要重新定义类型，Tproc = array of integer;
procedure abc(var s:Tproc)；
setLength(s,长度)本身没问题

 

H

hlwbn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-26

• #7

const PacketLen:=1024;
type
TPacket=array[1..PacketLen] of char ;

procedure abc(APackets:array of TPacket；

这样用有什么问题请指正

 

F

foxphone2003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-26

• #8

TPacket=array[1..PacketLen] of char ;//本身是个一维数组
procedure abc(APackets:array of TPacket；//这回让你弄成二维了，而且还不能这么传参数，写的还是错的

 

H

hlwbn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-26

• #9

改怎样传参数？

 

K

kaida

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-26

• #10

const PacketLen:=1024;
type
TPacket=array[1..PacketLen] of char ;

procedure abc(APackets:TPacket；

 

H

hlwbn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-26

• #11

setLength(s,长度)，
还是出错

 

K

kaida

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-26

• #12

已经定义 PacketLen:=1024，就不要再 setLength 了。

 

L

lmxcyx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-26

• #13

这样试试：
TIntegerDynArray Declare in Types Unit;
procedure abc(S :TIntegerDynArray);

 

X

xinyuhongchen00

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-26

• #14

type
TA =Array of integer;
//……………………
procedure abc(var s:ta)；

 

网

网中戏

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-26

• #15

foxphone2003,正确

 

H

hityou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-26

• #16

定义一个最大的max值.array [0..max] of integer

 

V

Vision

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-26

• #17

procedure TForm1.Button1Click(Sender: TObject);
type
arr = array of string;
procedure reset(var bbb:arr);
var
ii:integer;
begin
setlength(bbb,5);
bbb[3]:='333';
bbb[4]:='444';
for ii:=0 to high(bbb) do
Memo1.Lines.Add(bbb[ii]);
end;
var
aaa:arr;
begin
setlength(aaa,3);
aaa[0]:='000';
aaa[1]:='111';
aaa[2]:='222';
reset(aaa);
end;