5,510
社区成员
发帖
与我相关
我的任务
分享控件数组赋值问题！在线给分！
我定义了一个数组：Edits: array[1..77] of TEdit;
想把 Edit1,Edit2,Edit3...Edit77赋给相应的Edits[I];
请问除 Edits[1]:=Edit1;
Edits[2]:=Edit2;
...
Edits[77]:=Edit77;
外，是否还有更简便的方法？？
高手指教，在线给分！
想把 Edit1,Edit2,Edit3...Edit77赋给相应的Edits[I];
请问除 Edits[1]:=Edit1;
Edits[2]:=Edit2;
...
Edits[77]:=Edit77;
外，是否还有更简便的方法？？
高手指教，在线给分！
...全文
请发表友善的回复…
发表回复
Summer1314 2004-06-15
- 打赏
- 举报
var
i : integer;
j :integer;
begin
j :=0;
for i := 0 to form1.ComponentCount -1 do
if form1.Components[i] is TEdit then
begin
Edits[j]:=form1.Components[i] as TEdit;
inc(j)
end;
end;
i : integer;
j :integer;
begin
j :=0;
for i := 0 to form1.ComponentCount -1 do
if form1.Components[i] is TEdit then
begin
Edits[j]:=form1.Components[i] as TEdit;
inc(j)
end;
end;
zgq19801123 2004-06-15
- 打赏
- 举报
up
dragonwzw 2004-06-15
- 打赏
- 举报
多谢三位。已结贴！！
lichway 2004-06-15
- 打赏
- 举报
var
i:integer;
Edits:array[1..3] of TEdit;
begin
for i:=0 to ComponentCount-1 do
begin
if Components[i].Name='Edit'+inttostr(i+1) then
Edits[i+1]:=(Components[i] as TEdit);
end;
end;
i:integer;
Edits:array[1..3] of TEdit;
begin
for i:=0 to ComponentCount-1 do
begin
if Components[i].Name='Edit'+inttostr(i+1) then
Edits[i+1]:=(Components[i] as TEdit);
end;
end;
fim 2004-06-15
- 打赏
- 举报
不能再灌了，楼主要骂我们了，闪~~~~~~~
juliens 2004-06-15
- 打赏
- 举报
快了，呵呵，瞧镇江兄的势头，最多两个星期，搞定，呵呵！
我们还是不要聊了，万一引起公愤就惨了，我的MSN：julien_xia@hotmail.com
我们还是不要聊了，万一引起公愤就惨了，我的MSN：julien_xia@hotmail.com
fim 2004-06-15
- 打赏
- 举报
惭愧惭愧，暂时不谈升星，还差1200呢:)
juliens 2004-06-15
- 打赏
- 举报
唉，随便搞搞啦，想升到五个裤衩（和你一样）后，就闭关修炼一段时间了，还有400多分吧！你离升星还有多远啊？
fim 2004-06-15
- 打赏
- 举报
星星球兄啊，这段时间你蹭分势头挺猛的，现在多少分了？
juliens 2004-06-15
- 打赏
- 举报
嘿嘿，名不虚传，果然是出了名的快（引自：‘唐伯虎点蚊香’）
juliens 2004-06-15
- 打赏
- 举报
楼主不会建议的，呵呵，问题应该解决了吧！
以后多关照啊！
以后多关照啊！
fim 2004-06-15
- 打赏
- 举报
没办法，你也说了，我的快是出了名的啊：)
fim 2004-06-15
- 打赏
- 举报
是啊，不远。这个贴子成了我的灌水贴了。
juliens 2004-06-15
- 打赏
- 举报
呵呵，同时发出的！
juliens 2004-06-15
- 打赏
- 举报
Edit[I] := TEdit(FindComponent('Edit' + IntToStr(I)));
fim 2004-06-15
- 打赏
- 举报
for I := 1 to 77 do
Edit[I] := TEdit(FindComponent('Edit' + IntToStr(I)))
Edit[I] := TEdit(FindComponent('Edit' + IntToStr(I)))
juliens 2004-06-15
- 打赏
- 举报
镇江兄，如果你真是镇江的话，我和你倒是不远，我在张家港！呵呵！
江宁侯哥 2004-06-15
- 打赏
- 举报
可以不用数组吧，用Edit的tag进行区分啊，把Edit的tag设置成不同的值1，2，3...77.
dragonwzw 2004-06-15
- 打赏
- 举报
to fim(镇江DJ)(DJ=DelphiJava) ：
仍提示: Incompatible types: "TEdit" and "TComponent"
why???
仍提示: Incompatible types: "TEdit" and "TComponent"
why???
fim 2004-06-15
- 打赏
- 举报
手快，我多打了一个s ^_^
加载更多回复（7）
