typ
B = Array of A;
A = record
x: integer
y: integer
end;var
B1: B
begin
SetLength(B, 10); //分配数组空间
//这里缺什么函数?
B[0].x:= 123; //出错 end;
B = Array of A;
A = record
x: integer
y: integer
end;var
B1: B
begin
SetLength(B, 10); //分配数组空间
//这里缺什么函数?
B[0].x:= 123; //出错 end;
//这里缺什么函数?
B[0].x:= 123; 改为
SetLength(B1, 10); //分配数组空间
//这里缺什么函数?
B1[0].x:= 123;
A = record
x: integer;
y: integer;
end;
B = Array of A;
var
B1: B
begin
SetLength(B1, 10); //分配数组空间
//这里缺什么函数?
B1[0].x:= 123;
end;
完全的record是
A = record
x: integer;
y: integer;
info: Variant;
obj: Variant;
name: string
end;请指教,谢谢
array of .... 就当一个数祖来处理不就 OK 了吗。
多谢各位
PA =^A;
A = record
x: integer
y: integer
end;
通过NEW进行分配内存
用FreeMem释放内存.还不如直接写个类让它来管理算了.