Tedit负值难点！！！！！

Question

定义一个控件数组.edit(n)
n=1 to 100
...
(在VB中可以,不知Delphi可行否?--我是菜鸟.)

Answer 1

如何在delphi里定义控件数组？？

Answer 2

for i:= 0 to form1.controls.count-1 do
begin
  if form1.controls[i] is tedit then 
    tedit(form1.controls[i]).text := inttostr(i); 
end;

Answer 3

同意huojiehai(海天子) 的方法

Answer 4

需要自己写代码来实现
例如
TForm1 = class(TForm)
...  //在里面扔10个Edit控件名字就是edit1,edit2,...
private
  EditArray: array[0..9] of TEdit ;  //自己定义的edit类型的数组
public
end ;
...
然后在OnCreate事件里把这个数组建立起来:
var
  nIndex : Integer ;
begin
  for  nIndex := 0  to  9  do
  begin
    EditArray[nIndex] := 
         TEdit(findcomponents('edit'+inttostr(nIndex+1)))
  end ;
end ;
然后就可以使用了.

Answer 5

对于
for i:= 0 to form1.controls.count-1 do
begin
  if form1.controls[i] is tedit then 
    tedit(form1.controls[i]).text := inttostr(i); 
end;
编译通不过，提示form1.controls没有count属性。？？

Answer 6

for i:= 0 to form1.ControlCount-1 do
...

Answer 7

procedure TSubForm.BitBtn1Click(Sender: TObject);
var i,j:Integer;
begin
j:=0;
 for I := 0 to SubForm.ControlCount-1 do
 Begin
    if (Controls[I] is tedit) then
begin
inc(j);
    (Controls[I] as Tedit).text:=inttotr(j);
   
 End;
 end;

Answer 8

有个问题就是要注意edit的count顺序不一定是按名称，如，edit1,edit2,edit3这样来的。所以在建立edit的时候，就要注意先后顺序，最好不要建立了edit又删掉，这样序号就乱了。