procedure TForm1.Button1Click(Sender: TObject);
var
{}I: Integer;
begin
{}for I := 0 to ComponentCount - 1 do
{}{}if (Components[I] is TControl) and
{}{}{}(TControl(Components[I]).Parent is TGroupBox) then
{}{}{}if Components[I] is TEdit then
{}{}{}{}TEdit(Components[I]).Text := 'aaa'
{}{}{}else if Components[I] is TMemo then
{}{}{}{}TMemo(Components[I]).Text := 'bbb';
end;
var
{}I: Integer;
begin
{}for I := 0 to ComponentCount - 1 do
{}{}if (Components[I] is TControl) and
{}{}{}(TControl(Components[I]).Parent is TGroupBox) then
{}{}{}if Components[I] is TEdit then
{}{}{}{}TEdit(Components[I]).Text := 'aaa'
{}{}{}else if Components[I] is TMemo then
{}{}{}{}TMemo(Components[I]).Text := 'bbb';
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货