如何给一个遍历出来的组件的某一属性赋值?

Question

procedure TForm1.Button2Click(Sender: TObject);
var
  temp:integer;
begin
  for temp:=0 to Form1.ComponentCount-1 do
  begin
    Tquery1(Form1.Components[temp]).sql.text:=listbox1.items[temp];
  end;
end;

Answer 1

procedure TForm1.Button2Click(Sender: TObject);
var
  temp:integer;
begin
  for temp:=0 to Form1.ComponentCount-1 do
  begin
   if Components[temp].ClassName = TQuery then
     Tquery1(Form1.Components[temp]).sql.text:=listbox1.items[temp];
  end;
end;

Answer 2

刚才一不小心,提错了一点,谢谢各位的提示
  A:TComponent;的某一属性值给刚遍历出来的属性给值
  Tcomponets(componets[i].classname).text := a.text成立吗?
 
遍历出来某一组件,请问如何给其某一属性给值?

Answer 3

不是每个组件都有 Text 属性的啊

Answer 4

uses typinfo;
if (IsPublishedProp(Components[i],'Text')) then
  SetPropValue(Components[i], 'Text', Value);

Answer 5

uses  typinfo;  
if  (IsPublishedProp(Components[i],'Text'))  then  
   SetPropValue(Components[i],  'Text',  Value);

Answer 6

Tquery(Form1.Components[temp]).sql.text:=listbox1.items[temp];

Answer 7

procedure TForm1.Button2Click(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to ComponentCount - 1 do
    if Components[I] is TQuery then
      TQuery(Components[I]).SQL.Text := 'select "不试怎么知道？"';
end;//如果调试不成功，请给出你调试的代码

Answer 8

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to tform1.ComponentCount - 1 do
    if Components[I] is TQuery then
      TQuery(Components[I]).SQL.Text := 'select * from table1';
end;