我想批量付值，怎么实现

[Littleming]

如从dbEdit1->dbEdit100,
我想付值为1、2、3...100,怎么实现，
delphi是否有声名组件组的功能？

[yaoyongchao]

procedure TForm1.Button1Click(Sender: TObject);
var I ,J: Integer;
begin
j:=0;
for I := 0 to Form1.ComponentCount-1 do
begin

if Form1.Components[i] is TDBEdit then
begin
Inc(j);
TDBEdit(Form1.Components[i]).Text :=IntToStr(j);
end;
end;
end;
2 我不请楚，以上程序先用吧，有人有更好的方法再说。

[zjqyb]

for i:=0 to ComponentCount-1 do
if Components[i] is Tdbedit then
(Components[i] as Tdbedit).text=...

[Littleming]

这个我知道啊，问题是你确定Componnets[i] 就是DBEDIT[i]?

[yaoyongchao]

我的程序里不是有计数器J吗？只有是DBEDIT的时候它才加1

[dulei115]

for i=1 to 100 do
with TDBEdit(FindComponent('DBEdit'+inttostr(i))) do
............

[wyr521]

var I ,J: Integer;



for i:=0 to ComponentCount-1 do
if Components[i] is Tdbedit then
(Components[i] as Tdbedit).text=

[IORILI]

for i:=0 to ComponentCount-1 do
if Components[i] is Tdbedit then
(Components[i] as Tdbedit).text=inttostr(i);

[yaoyongchao]

SA : array[1..100] of TDBEdit;

[sgr0426]

利用组件的tag属性一一对应

[sgr0426]

for i:=0 to ControlCount-1 do
begin
if Controls[i] is TDbEdit then
case Controls[i].Tag of
n1:.....
n2:.....
n3:.....
end;
end;

[cxz7531]

先给各相关dbEdit1->dbEdit100设置不重复的tag
procedure TForm1.BitBtn1Click(Sender: TObject);
var
I: Integer;
begin
for I := 0 to Form1.ControlCount -1 do
if Form1.Controls[i].ClassNmae = TEdit then
a[(Form1.Controls[i].Tag]:= TdbEdit(Form1.Controls[i]).Text;
end;