如何清除一个窗体上所有的Edit.Text的内容

Linux2001 2002-01-15 03:12:34
...全文
151 12 打赏 收藏 转发到动态 举报
写回复
用AI写文章
12 条回复
切换为时间正序
请发表友善的回复…
发表回复
yxjjx 2002-01-17
  • 打赏
  • 举报
回复
老兄这样对不对?
yxjjx 2002-01-17
  • 打赏
  • 举报
回复
tedit(groupbox.controls[i]).text:=''
不好意思这里少了一个括号
yxjjx 2002-01-17
  • 打赏
  • 举报
回复
var i:integer
begin
for i:=0 to groupbox.controlcount-1 do
if groupbox.controls[i] is tedit then
tedit(groupbox.controls[i].text:='';
end;
这样试试吧
hellion 2002-01-17
  • 打赏
  • 举报
回复
看看第一个回复,需要递归
Linux2001 2002-01-17
  • 打赏
  • 举报
回复
我的EDit控件是在GroupBox控件中的,我用了以上的方法,没有清空任何一个Edit啊
alec_ma 2002-01-15
  • 打赏
  • 举报
回复
对了
武稀松 2002-01-15
  • 打赏
  • 举报
回复
for i:=0 to (Self.ControlCount-1) do
begin
if Self.Controls[i] is TEdit then
(Self.Controls[i] as TEdit).Text:='';

TEdit(Self.Controls[i]).Text:='';
end;
genedna 2002-01-15
  • 打赏
  • 举报
回复
var
I : Integer;
begin
for I := 0 to Form1.ComponentCount-1 do
if (Component[I] is TEdit) then
(Component[I] as TEdit).Text := '';
end;
stiwin 2002-01-15
  • 打赏
  • 举报
回复
find as tedit
fshrq 2002-01-15
  • 打赏
  • 举报
回复
for i:=1 to n do
form1.findcomponent('edit'+inttostr(i)) as tedit).text:='';
iBear 2002-01-15
  • 打赏
  • 举报
回复
用窗体的Components属性遍历,如果是edit就clear
hellion 2002-01-15
  • 打赏
  • 举报
回复
利用Components属性,若Form中有其它容器,需要递归

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧