对面的大虾看过来！！GoGoGo!
怎么一次实现把窗体中的可填写的控件的内容全部清空，有memo,edit,combobox……!谢了！ 问题点数：30、回复次数：4Top
1 楼Liujc（阿聪）回复于 2002-03-28 10:18:39 得分 10
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 ;Top
2 楼xyxx（雪域雄师）回复于 2002-03-28 10:20:38 得分 0
这个我知道，有选定全部的吗，一次性的！谢了Top
3 楼LXJ2001（lxj）回复于 2002-03-28 10:21:03 得分 10
for i:=0 to componentcout-1 do
begin
if (components[i] is Tmemo)
then (components[i] as TMemo).text = ''
...
end;
Top
4 楼Larky（睡仙）回复于 2002-03-28 10:23:01 得分 10
吧他们的默认值设为空，然后free掉form 在重建form就可以了：）
为什么非要一次！Top
