5,386
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
涩色滴人 2003-10-16
- 打赏
- 举报
给分了，呵呵。
谢谢。
不过你语法错误倒是有一堆。。。
谢谢。
不过你语法错误倒是有一堆。。。
gdwyh 2003-10-16
- 打赏
- 举报
TEdit(from1.Components[I]).Text <> ''未尾加上";"
gdwyh 2003-10-16
- 打赏
- 举报
var
I: Integer;
begin
for I := 0 to form1.ComponentCount - 1 do
if form1.Components[I] is TEdit then
TEdit(from1.Components[I]).Text <> ''
end;
I: Integer;
begin
for I := 0 to form1.ComponentCount - 1 do
if form1.Components[I] is TEdit then
TEdit(from1.Components[I]).Text <> ''
end;
sixgj 2003-10-16
- 打赏
- 举报
呵呵。全部选中控件，然后清空一次就成了。
