怎么批量给一类组件赋值? 如:有N个edit组件,现在要全部赋值给它们,就像edit1.text:='test'.edit2.text:='test'...,edit(n).text:='test';如何实现?? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 var I: integer;begin for I:= 0 to Self.ComponentCount-1 do begin if Self.Components[i] is Tedit then begin TEdit(Components[i]).Text := 'test'; end; end; 请问如何查询出数据库中某字段后一部份的最大值?请进来帮帮忙. 偶要找工作了! 谁知道delphi里的socket控件对应的ocx文件是哪一个?在哪个目录? 怎样用QuickReport做这样的报表? 菜鸟问题:如何使可执行文件变小 请教一个小问题,先答先得分 delphi里的EmbeddedWB打开网页的问题 请问关于dbImage控件的使用方法? 如何动态生成TImage组件? 关于delphi开发的基本问题。 如何获取sqlserver服务器上的所有视图列表? 请问连续两个cds.applyupdates在服务器方如何用事务控制??
begin
for I:= 0 to Self.ComponentCount-1 do
begin
if Self.Components[i] is Tedit then
begin
TEdit(Components[i]).Text := 'test';
end;
end;