对面的大虾看过来！！GoGoGo!

[xyxx]

怎么一次实现把窗体中的可填写的控件的内容全部清空，有memo,edit,combobox……!谢了！

[Liujc]

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

[xyxx]

这个我知道，有选定全部的吗，一次性的！谢了

[LXJ2001]

for i:=0 to componentcout-1 do
begin
if (components[i] is Tmemo)
then (components[i] as TMemo).text = ''
...
end;

[Larky]

吧他们的默认值设为空，然后free掉form 在重建form就可以了：）
为什么非要一次！