有关TEdit控件的问题 急

Question

我做一个程序 界面上有25个Tedit控件 我想在我单击一个按键时清空TEdit中的所有内容 即用最简单的代码实现 不要一个一个的清空 那样的话太麻烦了

Answer 1

for i := 0 to Form1.componentCount - 1 do//查找edit组建
begin
  if Form1.Componets[i] is TEdit then  //如果是edit组件
   （Componets[i] as TEdit).Text :='';//和楼上的区别
end;

Answer 2

var i :integer; 
begin
for i:=0 to componentcount-1 do
begin
  if components[i] is tedit then
    (components[i] as tedit).text:='';
  end;

Answer 3

for i:=0 to Form1.ControlCount -1 do
  begin
    if (Form1.Controls[i].ClassName='TEdit') then
      'TEdit'(Form1.Controls[i]).text:='';

Answer 4

给你一些建议，我的机子上没DELPHI.
  for i=1 to self.compomentcount do
    begin
       if self.compoment[i].classname=Tedit then
           (compoment[i] as Tedit).clear;
    end;
可能代码不对，你在看看帮助文件。
具体思想是：
    逐个的察看form上的控件的类名称，如果为TEdit的话。就清空那个控件的text值

Answer 5

var i :integer; 
begin
for i:=0 to componentcount-1 do
begin
  if components[i] is TEdit then
    TEdit(components[i]).text:='';
  end;