冗余代码

[dongxufeifei]

小弟一个程序中有n个edit控件。现在要实现如下功能，edit1的font由fontdialog1指定，edit2、edit3……等等他们的font也由fontdialog1指定
如果为每一个edit控件编写代码则是一种重复，而且是一种浪费，请问有没有更好的方法实现如上述功能呢?

[yl_588888]

for i;=0 to form.controls.count do
begin
if form.controls[i] is tedit then
begin
end;
end;

[thh820630]

如果你想都一样的话那你就设你的控件所在的窗体吧
如果不想可试试这个
for i:=0 to form.controls.conut do
begin
if control[i] is TEdit then
begin
......
end;
end;

[foxlord]

写一个函数
function fontset(pEdit:TEdit):TFont;
每一个Edit调用此函数就可以了

[dongfang73]

for i:=0 to componentcount-1 do
if components[i] is tedit then
begin
end

[dongfang73]

for i:=0 to form.controls.conut do
begin
if control[i] is TEdit then
begin
......
end;
end;

[李_军]

if fontdialog1.Execute then
for i:=0 to Form1.Componentcount-1 do
if Components[i] is TEdit then
begin
TEdit(Components[i]).Font := fontdialog1.Font;
end;

[pressman]

for i:=0 to form.controls.conut do
begin
if control[i] is TEdit then
begin
......
end;
end;
D5 开发人员指南里有很详细的说明
建议去看看！