请Delphi高手帮忙：数组元素与TObject的转换。。

关于网友提出的“ 请Delphi高手帮忙：数组元素与TObject的转换。。
”问题疑问，本网通过在网上对“ 请Delphi高手帮忙：数组元素与TObject的转换。。
”有关的相关答案进行了整理，供用户进行参考，详细问题解答如下：

问题： 请Delphi高手帮忙：数组元素与TObject的转换。。
描述:

假设有如下数组：
Type 
   TPaperInfo=packed Record
       PaperName: string;
       PaperSize: integer;
       PaperWidth:integer;
       PaperHeight: integer;
end;
var 
   PaperInfos: array of TPaperInfo;
   SetLength(PaperInfos,10);
   for i:=Low() to High() do
   begin
     //为数组各元素赋值
   end;
 窗体中有个comboBox1, 我想把数组中各元素作为TObject插入到该组合框的Objects列表中， 以及在需要时从各个Object中取出各元素的成员。。。
请问各位大侠有可以这么做吗？？或者有其它折冲的办法？？？

---

解决方案1:

可以的，不过程序要改一下：
   PPaperInfo=^TpaperInfo;//加一行，定义其指针类型
   TPaperInfo=packed Record
       PaperName: string;
       PaperSize: integer;
       PaperWidth:integer;
       PaperHeight: integer;
end;
以后可以使用combobox.items.addobject(@PaperInfos[i]);
取出：
var p : PPaperInfo;
...
p := combobox.item.objects[i];

解决方案2:

ComboBox.Items.Objects

以上介绍了“ 请Delphi高手帮忙：数组元素与TObject的转换。。”的问题解答，希望对有需要的网友有所帮助。
本文网址链接：http://www.codes51.com/itwd/2471023.html