我窗口上有:
edit1 姓名
edit2 编号
button1 开始
button2 重置我的重置方法是:
procedure button2.click();
begin
edit1.text:='';
edit2.text:='';
end;有没有更简单的方法实现以上效果了?
edit1 姓名
edit2 编号
button1 开始
button2 重置我的重置方法是:
procedure button2.click();
begin
edit1.text:='';
edit2.text:='';
end;有没有更简单的方法实现以上效果了?
begin
with Form1 do
for i := 0 to ComponentCount -1 do
if Components[i] is TEdit then TEdit(Components[i]).Text := '';
end;