PCBInfo_Struct=^CBInfo_Struct;
CBInfo_Struct=record
NO:string;
end;
------------------------
var
P_Struct:PCBInfo_Struct;
for Row:=0 to 10 do
begin
new(P_Struct);
P_Struct.No:=inttostr(ROW)
ComboBox1.Items.AddObject(inttostr(Row),Tobject(P_Struct));
end;---------------------------
new(P_Struct);
P_Struct.No:='5';
showmessage(inttostr(ComboBox1.Items.IndexOfObject(Tobject(P_Struct))));
它显示的总是-1
我要的是得到它的ItemIndex
如应该为5
CBInfo_Struct=record
NO:string;
end;
------------------------
var
P_Struct:PCBInfo_Struct;
for Row:=0 to 10 do
begin
new(P_Struct);
P_Struct.No:=inttostr(ROW)
ComboBox1.Items.AddObject(inttostr(Row),Tobject(P_Struct));
end;---------------------------
new(P_Struct);
P_Struct.No:='5';
showmessage(inttostr(ComboBox1.Items.IndexOfObject(Tobject(P_Struct))));
它显示的总是-1
我要的是得到它的ItemIndex
如应该为5
解决方案 »
- 寻找一段 磁性窗体代码。
- 用TreeView做的资源管理如何打开新窗口?
- Borland即将推出新版2007,全面支持Vista的开发
- 如何实现某一窗体运行后能保持处于其他任何应用程序之前???
- 如何捕捉DOS命令窗是否关闭?请各位大侠请点,在线等待!!!
- DBGrid显示数据问题,在线等,马上解决马上结贴
- dbchart中,默认Y轴总是从数据源中选出的最小值开始,如何设为从0开始?
- 如何打包制作含有SQL server(个人版)数据库的应用软件的安装程序?急用!!!!
- delphi编写的读写.dbf数据库的程序如何打包分发?
- msdn给分的方式是否需要改变一下,好象成功率不高。
- 【1stclass中fctreecombo控件树型下拉列表使用方法】
- 新手求助:请问各位朋友,学delphi,可以不用学pascal吗?我指的pascal,不是:Object Pascal!
你另NEW的一个对象当然在ITEMS中是找不到的.
顺便说一句:以后不要用这种方式发贴,没人愿意看这种标题的贴子.
标题就明确简述问题.
IndexOf的意思是在Items中找到那个对象的序号。
你在添加的时候把对象都加到Items中了。然后找的时候自然要去Itms中找那个对象。你新生成了一个对象,这个对象和Itmes中的对象不是同一个。就是说你生成了N个button,并保存到Items中。然后你又生成了一个Button,然后去Items中找这个新的button,怎么可能找的到!