我有40个DBEdit,现在想读取每个DBEdit的关联字段名(FieldName),用一个循环该怎么写?
强制类型转换TDBEdit(FindComponent('DBEdit'+intToStr(i))).Field.FieldName;好像会出错??
谢谢!!
强制类型转换TDBEdit(FindComponent('DBEdit'+intToStr(i))).Field.FieldName;好像会出错??
谢谢!!
解决方案 »
- 求助,为什么我把 ODBC 设置为 网络的路径就不行呢?
- 如何在运行的时候添加新索引:?
- 学妹请教,有关点击dbgrid中按扭弹出listbox后返回的问题?
- 有关DELPHI应用程序“换肤”和“INI文件的加密解密”的问题,大家进来看看。。。。。。
- 用Delphi 5.0中编写的程序一定能在Delphi 6.0中运行,不会出错吗?
- raize components 有for d2010没有?
- Excel导入Access 在delphi里怎样从第几行第几列开始导入
- idhttp如何实现这样的需求?
- 关于返回CheckBox的选项,有什么简化的方法吗?
- 哪位高手救救我吧。。。
- 获得键盘输入
- 请教自动填表 软件
var
I: Integer;
vDBEdit: TDBEdit;
begin
for I := 1 to 40 do
begin
TComponent(vDBEdit) := FindComponent(Format('DBEdit%d', [I]));
if Assigned(vDBEdit) and Assigned(vDBEdit.Field) then
{ TODO : 处理vDBEdit.Field.FieldName };
end;
end;
var
i:integer;
begin
for i:=0 to 40 do
begin
if Components[i] is TDBEdit then
ShowMessage(TDBEdit(Components[i]).DataField);
end;
end;
如果报错你可以找我。^_^