数组类型的用法

[Tulipsys]

如下定义类型：
type
TValidFloor= 1..10;
TElevatorState= set of (esUpRun, esDownRun, esStop);
TTask= record
Floor: TValidFloor;
Direction: TElevatorState;
end;
TTaskList= array[1..10] of TTask;
然后定义类：
type
TBuilder = class
private
FRequestList: TTaskList;
public
procedure CreateTask(Task: TTask);
end;

procedure TBuilder.CreateTask(Task: TTask);
begin
RequestList[2].Floor:= Task.Floor;
end;

编译出错：Left side cannot be assigned to
该怎么办呀？

[acqy]

在哪句上出错啊？

[zwjchina]

注意你自己写的代码：
RequestList[2].Floor:= Task.Floor;
应该改为：
FRequestList[2].Floor:= Task.Floor;

[Tulipsys]

对不起，我少写了一个一个属性定义：
property RequestList: TTaskList write FRequestList read FRequestList;

[King_Dragon]

属性定义为数组类型，本身就存在错误！

[zwjchina]

你看这句话：
property RequestList: TTaskList write FRequestList read FRequestList;

也就是RequesList指定是读写FRequesList,没说如何读写FRequesList的子项。
所以，你要改子项，必须用我上面说的方法，或者如下也可以。
var
R:TTaskList;
begin
R.Floor := Task.Floor;
RequestList[2] := R;
end;

[zwjchina]

啊哦，我没仔细看！
如 King_Dragon(我是谁) 所说
你的属性不能这样定义。
可以做个改动，如下：

type
TBuilder = class
private
FRequestList: TTaskList;
function GetRequestList(const Index: Integer): TTask;
procedure SetRequestList(const Index: Integer; Value: TTask);
public
procedure CreateTask(Task: TTask);
property RequestList[const Index: Integer]: TTask read
GetRequestList write SetRequestList;
end;

procedure TBuilder.CreateTask(Task: TTask);
begin
FRequestList[2].Floor:= Task.Floor;
end;

function GetRequestList(const Index: Integer): TTask;
begin
Result := FRequestList[Index];
end;

procedure SetRequestList(const Index: Integer; Value: TTask);
begin
FRequestList[Index] := Value;
end;

[zwjchina]

修改成我上面的代码后，你才可以
如下这样使用
var
R:TTaskList;
begin
R.Floor := Task.Floor;
RequestList[2] := R;
end;

[Tulipsys]

谢谢蒲石了，不你的心想告诉我，以后就直接问你算了。交个朋友好吗？

[zwjchina]

哦，当然可以！
QQ:21771272(上得不多，呵呵)
EMAIL:[e-mail]