关于指针的取值

Question

type
  PRightList = ^AList;
  AList = record
    RightNo: String;
    RightName: String;
  end;  New(ARecord);
  ARecord.RightNo:=trim(cdsUserRightList.FieldByName('module_ID').AsString);
  ARecord.RightName:=trim(cdsUserRightList.fieldbyname('module_name').AsString);
  listview1.AddItem(ARecord.RightName,TOBject(ARecord));showmessage(pRightList(ListView1.items(ListView1.itemindex))^.RightNo);取值时报错？
我这样取值的方法对吗？给listview加记录时没有错的！

Answer 1

TMyList = class
    RightNo: String;
    RightName: String;
 end;
 
var ARecord:TMyList;
    ARecord:=TMylist.Create;
  ARecord.RightNo:=trim(cdsUserRightList.FieldByName('module_ID').AsString);
  ARecord.RightName:=trim(cdsUserRightList.fieldbyname('module_name').AsString);
  listview1.AddItem(ARecord.RightName,ARecord);

Answer 2

自己解决了showmessage(pRightList(ListView1.items.objects(ListView1.itemindex))^.RightNo);

Answer 3

不对，下拉框可以用上面的方法取出，listview没有listview.items.objects方法！还请高手指教

Answer 4

彻底解决了showmessage(pRightList(ListView1.items[i].data)^.RightNo);