关于动态创建控件问题？高手请看！

Question

tcom完全没有必要作为参数传递进来。如果要动态创建得话，试一试这样行不行
procedure  TForm1.pcptcom(var tcom:  tcombobox;comname:string;comtop:integer;  strlist:  Tstringlist;
      haschange:  boolean;  changename:  TnotifyEvent);
var
  acom:TComboBox;
begin
  aCom:=tComboBox.create(nil);
  tcom:=acom;
end;

Answer 1

label1.Caption := tcombobox(com1).Text
//or
label1.Caption := (com1 as tcombobox).Text

Answer 2

这只是类型转换的问题:
caption属性无法直接接受TStrings类型数据的赋值
你可以:
1.
var
i:integer;
begin
for i:=0 to com1.strlst.Count do
label1.Caption:= Label1.Caption+ com1.strlst[i];2.
label1.Caption:= string(com1.Text);3.if com1.text is string
  then label1.Caption:= com1.text;等等以及你是用的方法都是安全的类型转换