清除数据

[forao09]

可不可以写很少的代码就清除窗体中所有TEdit中的文字,而不需写Edit1.text:='';Edit2.Text:='';.............

[sy_315]

好象不行~
edit[i]?
不行啊~

[shun3]

var i:integer;
begin
for i:= 0 to form1.componentcount-1 do //不好意思componentcount记不太清！！
if components[i] is Tedit then //遍历窗体的所有控件，并判断是否是Tedit类型的.
(components[i] as Tedit).text:='';//如果是则把它清空
end;

如果错误,真的很抱歉!!!但是基本上是这样.

[delphi0302]

for i := 0 to ComponentCount - 1 do
begin
if Components[i] is TsuiEdit then
(Components[i] as TsuiEdit).Text := '';
if Components[i] is TsuiCheckBox then
(Components[i] as TsuiCheckBox).Checked := False;
if Components[i] is TsuiCheckListBox then
(Components[i] as TsuiCheckListBox).Items.Clear;
end;

[wdsimon]

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to form1.ComponentCount-1 do
if Components[i] is tedit then (components[i] as tedit).Text:='';
end;

[lxh00789]

UP

[wujunwei]

哦，原来是这样的:)

[zhoutian618]

已经都说清楚了。

[大地精灵]

又来晚了，各位老大都说的很清楚了

[kuki84]

for i:=0 to form1.ComponentCount-1 do
if Components[i] is tedit then (components[i] as tedit).Text:='';

[joky1981]

procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
for i:=1 to 2 do
TEdit(FindComponent('Edit'+IntToStr(i))).Clear;
end;

[Devlopered]

for i := 0 to ComponentCount - 1 do
begin
if Components[i] is TsuiEdit then
(Components[i] as TsuiEdit).Text := '';
if Components[i] is TsuiCheckBox then
(Components[i] as TsuiCheckBox).Checked := False;
if Components[i] is TsuiCheckListBox then
(Components[i] as TsuiCheckListBox).Items.Clear;
end;

[大地精灵]

我靠，什么世道啊，我来的晚，没回答，因为楼上的几位说的很清楚，可是比我来的还晚的，跟delphi0302(好好学习，天天向上！) 说的一样，居然分最高，有点。。。。。。。。

[大地精灵]

我靠，什么世道啊，我来的晚，没回答，因为楼上的几位说的很清楚，可是比我来的还晚的，跟delphi0302(好好学习，天天向上！) 说的一样，居然分最高，有点。。。。。。。。