public
Property MyItems:TStringsprocedure TForm1.FormCreate(Sender: TObject);
begin
MyItems:=TStringlist.Create;
with MyItems do
begin
AddObject('航空母舰',Pic1);
end
ComboBox1.Items:=MyItems;
ComboBox1.DropDownCount:=5;
ComboBox1.ItemIndex:=0;
end;1.请问以MyItems创建的时候为什么要创建成TStringlist类型,ComboBox1.Items不就是TStrings类型的吗,
2.如果是创建成TStringlist,为什么定义成TStrings类型,
不懂
定义成TStrings保持相容和扩展。
Items定义成TStrings是方便派生
2. 定义成TStringList也没问题。
get getcount clear indsert delete 都是虚的
所以连基本功能都没有
TStrings是抽象类,实例化时需要向下转型
2.如果是创建成TStringlist,为什么定义成TStrings类型
如果是要用Stringlist,哪么 MyItems:TStrings和MyItems:TStringlist的结果是一样的