用数组、TList、或者TObjectList保存对象列表,然后用循环对每一个实例进行操作:for i:=0 to Count-1 // or T[Object]List.Count-1
begin
Objs[i]....// or TMyObject(TTObjectList.Items[i])....
end;
begin
Objs[i]....// or TMyObject(TTObjectList.Items[i])....
end;
解决方案 »
- delphi 状态栏 overwrite 回车 失灵
- 如何使第三方程序作为我的程序的子窗体运行,并可以在主程序里控制它
- 实现intenet连接共享
- 急!!!为什么dbgrideh的footer不能汇总值,怎样控制在 里面录入数据时不能输两个小数点,各位请帮忙!
- 高手!在线等待!
- 请问高手:从Access数据库中取出的数据是按什么方式编码的?急!在线等!
- 求关于两个不同的数据库之间更新的问题。(是单机)
- 这样的异常错误,怎么捕获? 怎样显示出它的错误码? 详见内容。 谢谢
- 如何从excel表中读取数据 倒入到sql server中?
- 那位大虾知道fbplus 它的dataset 字段列表里的displaylabel改变成中文,为什么不能修改数据
- 名位大虾,帮我一下!怎样Delphi生成EXE文件?
- 寻找TPolyline控件
JGTM2000说的办法就是很好的一种模拟的解决方式,是真正的Delphi。
完全同意JGTM2000,不过D5的列表释放好像有点问题,老死机。
var
I: Integer;
begin
for I := 0 to ComponentCount - 1 do
begin
if Components[I] is TButton then
ShowMessage('Button ' + IntToStr(I));
end;
end;
请问怎样把字符串转换为控件.
如:
edit1:tedit;
a:string;
begin
a:='edit1';
能否已知a,而通过某种方法将a解释为edit1呢?