type
b=^a;
a=record
a1:string;
a2:integer;
a3:boolean;
end;
var
c:b;
d:tlist;
e:string;
begin
d:=TList.Create;
new(c);
c^.a3:=true;
c^.a2:=2;
c^.a1:='aa';d.Add(c);e:=b(d.Items[0])^.a1;
self.Caption:=e;
end;此段程序可以运行成功,但本人要问的是为什么e:=b(d.Items[0])^.a1中打.时后面的a1,a2,a3无法出现,如有错,请指出
b=^a;
a=record
a1:string;
a2:integer;
a3:boolean;
end;
var
c:b;
d:tlist;
e:string;
begin
d:=TList.Create;
new(c);
c^.a3:=true;
c^.a2:=2;
c^.a1:='aa';d.Add(c);e:=b(d.Items[0])^.a1;
self.Caption:=e;
end;此段程序可以运行成功,但本人要问的是为什么e:=b(d.Items[0])^.a1中打.时后面的a1,a2,a3无法出现,如有错,请指出
那就是说我写的是正确的罗?我是上菜鸟
d.free;
dispose(c);