H hohailiu Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-16 #1 怎么样用循环语句来给许多的edit文本赋值！[]
Q QuickSilver Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-16 #2 参考 http://www.delphibbs.com/delphibbs/dispq.asp?lid=1257731
L lsan78 Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-16 #3 for I := 1 to 10 do TEdit(FindComponent('Edit' + IntToStr(I))).text := inttostr(i)
W watter Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-16 #4 用Tag属性： for i:= 1 to 10 do if (Controls is TEdit) and (Controls.Tag = i) then (Controls as TEdit).Text:=inttostr(i);
用Tag属性： for i:= 1 to 10 do if (Controls is TEdit) and (Controls.Tag = i) then (Controls as TEdit).Text:=inttostr(i);
Q qinmingzsj Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-16 #5 for I := 1 to form.componet.count-1 do TEdit(FindComponent('Edit' + IntToStr(I))).text := inttostr(i)
for I := 1 to form.componet.count-1 do TEdit(FindComponent('Edit' + IntToStr(I))).text := inttostr(i)
X xujia Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-16 #6 for I := 1 to 10 do TEdit(FindComponent('Edit' + IntToStr(I))).text := inttostr(i)
X xujia Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-16 #7 for I := 1 to 10 do TEdit(FindComponent('Edit' + IntToStr(I))).text := inttostr(i)
]]
]