Question

Delphi 2010 How to modify TList < record > value ?

type TTest = record a,b,c:Integer end;
var List:TList<TTest>;
    A:TTest;
    P:Pointer;
....
....

List[10] := A;  <- OK
List[10].a:=1;  <- Here compiler error : Left side cannot be assined to
P:=@List[10];   <- Error: Variable requied

Answer 1

A := List[10];
A.a := 1;
list[10] := A;

你不需要用物体做这件事,因为它们重复了参考类型(通过汇编者在内部管理的一个要点来避免其理发),但记录是价值类型,因此没有工作。

Answer 2

你们用记录击中了一个天线。

考虑这一法典:

function Test: TTest;
begin
    ...
end;

Test.a := 1;

你们的法典实际上认为:

TTest temp := Test;
temp.a := 1;

汇编者用错误信息告诉你,这一转让毫无意义,因为它只会给临时记录价值带来新的价值,而这种价值将立即被遗忘。

此外,<代码>@List[10]是无效的,因为<代码>List[10]<>> 代码再次只收回临时记录价值,因此该记录的地址是毫无意义的。

然而,阅读和书写整个记录是大韩民国。

总结:

List[10] := A;  <- writing a whole record is OK
List[10].a:=1;  <- List[10] returns a temporary record, pointless assignment
P:=@List[10];   <- List[10] returns a temporary record, its address is pointless

Answer 3

如果你想存储记录,动态阵列更适合处理:

type TTest = record a,b,c : Integer end;
type TTestList = array of TTest;
var List:TTestList;
    A:TTest;
    P:Pointer;
....
....

SetLength( List, 20 );
List[10]   := A; //<- OK
List[10].a := 1; //<- Ok
P := @List[10];  //<- Not advised (the next SetLength(List,xx) will blow the address away),
                 //   but technically works

如果你需要增加操纵这些数据的方法,那么你可以把这种阵列作为一类的领域,并将你的方法添加到这一类。

Answer 4

如果你需要以这种形式操纵物体,那么最好使用物体而不是TList,并将结构定义为一个类别而不是一个记录:

type TTest = class a,b,c:Integer end;
var List:TObjectList<TTest>;
    A:TTest; // A is an object so there s no need for a pointer
....
....
List.Add(TTest.Create);
List.Last.a := 1;
A:=List.Last;

友情链接