如何给 自定义包中 array of string array of integer 类型的数组赋值？(50分)

小

小生

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-04

• #1

我定义了一个包
type
TProject=packed record
ProjectName:string;
FileList:array of string;
FileID:array of integer;
end;

我现在要给FileList、FileID数组赋值，怎么办？
我用SetLength不能直接给FileList、FileID 分配空间

 

小

小生

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-04

• #2

自己解决了，是我自己定义了两个相同的变量，一个是全局的一个是局部的
进来几个人散分了！！！

 

S

stuwe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-04

• #3

50分怎麼夠散？[]

 

H

happylcq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-04

• #4

procedure TForm1.Button1Click(Sender: TObject);
var p: TProject;
i: integer;
begin
setlength(p.FileList, 10);
setlength(p.fileid, 10);
for i := 0 to 9 do begin
p.FileList := 'a';
p.FileID := i;
end;
end;
可以呀

 

H

hongxing_dl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-04

• #5

都解决了，那我也来分一份嘛

 

小

小生

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-05

• #6

多人接受答案了。