var
I: Integer;
begin
for I := 0 to ComponentCount - 1 do
if Components[I] is TEdit then
TEdit(Components[I]).Text := '';
end;
I: Integer;
begin
for I := 0 to ComponentCount - 1 do
if Components[I] is TEdit then
TEdit(Components[I]).Text := '';
end;
if Components[i] is TEdit then
TEdit(Components[i]).Text := '';
I: Integer;
begin
for I := 0 to ComponentCount - 1 do
if Components[I] is TEdit then
TEdit(Components[I]).Text := '';
end;
for i := 0 to Form1.ControlCount - 1 do
if Form1.COntrols[i] is TDBEdit then
TEdit(Controls[i]).text := '';
改为
if Form1.COntrols[i] is TEdit then
i:integer;
begin
for I:= 0 to Form1.componentcount-1 do
if form1.components[I] is Tedit then
Tedit(form1.components[I]).clear;
end;
var
i:integer;
curc:TControl;
begin
for i:=0 to ControlCount-1 do
begin
curc:= Controls[i];
if curc is TEdit then0D
tedit(curc).Text:='';
end;
end;
================================================================CSDN 论坛助手 Ver 1.0 B0402提供下载。 改进了很多,功能完备!★ 浏览帖子速度极快![建议系统使用ie5.5以上]。 ★ 多种帖子实现界面。
★ 保存帖子到本地[html格式]★ 监视您关注帖子的回复更新。
★ 可以直接发贴、回复帖子★ 采用XML接口,可以一次性显示4页帖子,同时支持自定义每次显示帖子数量。可以浏览历史记录!
★ 支持在线检测程序升级情况,可及时获得程序更新的信息。★★ 签名 ●
可以在您的每个帖子的后面自动加上一个自己设计的签名哟。Http://www.ChinaOK.net/csdn/csdn.zip
Http://www.ChinaOK.net/csdn/csdn.rar
Http://www.ChinaOK.net/csdn/csdn.exe [自解压]
var
i :integer;
begin
for i :=0 to ComponentCount-1 do
begin
if Components[i] is TEdit then
TEdit(Components[i]).Text :='';
end;
end;end.
var
I: Integer;
begin
for I := 0 to ComponentCount - 1 do
if Components[I] is TEdit then
TEdit(Components[I]).Text := '';
end;