30个panel中各自放了一个label和DBEdit，表中放了label的caption、DBEdit的DataField内容<=30(50分)

Y

yxq1220

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-17

• #1

30个panel中各自放了一个label和DBEdit，表中放了label的caption、DBEdit的DataField内容<=30
怎么给label和DBEdit赋值

 

B

bigroom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-17

• #2

定义label和DBEdit数组，程序中动态创建label和DBEdit，为其赋值的时候，直接使用数组名称，用下标定位即可。

 

Y

yxq1220

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-17

• #3

兄弟，能详细一点吗
另注：越详细越好，谢谢

 

Z

zhukewen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-17

• #4

先把label,dbedit的tag设置为1开始的连续数
var i,j : integer;
begin
for i := 0 to ComponentCount -1 do
begin
if components is TLabel then
begin
j := TLabel(Components).tag;
if j < table1.RecordCount then
begin
table1.First;
table1.moveby(j-1);
TLabel(Components).Caption := table1.FieldByName('caption').AsString;
end;
if components is TDBEdit then
begin
j := TDBEdit(Components).tag;
if j < table1.RecordCount then
begin
table1.First;
table1.moveby(j-1);
TDBEdit(Components).Caption := table1.FieldByName('caption').AsString;
end;
end;
end;

 

Y

yxq1220

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-17

• #5

to zhukewen
奇怪，怎么都是不符合if条件的

 

Y

yxq1220

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-17

• #6

多人接受答案了。