Создание массива компонентов

[artemavd]

Код создания во время работы программы компонента Edit:

Edit1:=TEdit.Create(self);   
Edit1.Parent:=self;

Как сделать, чтобы при каждом нажатии на кнопку создания, новые Edit-ы создавались друг под другом и у каждого Edit-a было свое новое имя (т.е. новый порядковый номер Edit1, Edit2 и т.д. Хотя это необязательно делать)?
Пробовал так:

procedure TForm1.ButtonClick(Sender: TObject);
var
 i:integer;
begin
 i:=40;
 Edit1:=TEdit.Create(self);   
 Edit1.Parent:=200 + i; 
 Edit1.Parent:=self;

Но не получилось

[Jeni]

Странная операция Edit1.Parent:=200 + i;
Свойству Parent должен присваиваться указатель, а не число. Поместить компонент под другим можно, поменяв его Z-порядок, например Edit1.SendToBack, а чтобы присвоить имя Edit1.Name := 'NewEdit' + IntToStr(I);

[lexaltd]

var
  Form1: TForm1;
  e : TEdit;
  n : integer =0;
  n2 : integer =1;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  e := TEdit.Create(self);
  e.Parent := self;
  e.Name := 'Edit' + IntToStr(n2);
  e.Left := 10;
  e.Top := n;
  n := n +25;
  Inc(n2);
end;

[artemavd]

var
  Form1: TForm1;
  e : TEdit;
  n : integer =0; //ругается на эту строчку 
  n2 : integer =1; //и на эту
 
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  e := TEdit.Create(self);
  e.Parent := self;
  e.Name := 'Edit' + IntToStr(n2);
  e.Left := 10;
  e.Top := n;
  n := n +25;
  Inc(n2);
end;

Что делать? Пишет: [Error] Unit6.pas(102): Cannot initialize local variables

[lexaltd]

Что делать? Пишет: [Error] Unit6.pas(102): Cannot initialize local variables

 n : integer =0; //ругается на эту строчку 
 n2 : integer =1; //и на эту

эти переменные надо объявлять как глобальные ,а не вставлять в процедуру

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  e : TEdit;
  n : integer =0;
  n2 : integer =1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  e := TEdit.Create(self);
  e.Parent := self;
  e.Name := 'Edit' + IntToStr(n2);
  e.Left := 10;
  e.Top := n;
  n := n +25;
  Inc(n2);
end;

[artemavd]

lexaltd, имена изменил, но по прежнему если в разделе var добавить после integer 0 и 1, то выводит ту же ошибку. И еще, почему когда создается первый компонент, он помещается в самый низ формы?) И почему когда я второй раз нажимаю на кнопку создания, то второй раз компонент не создается, а пишет ошибку: A component named Edit0 already exists. ((

[mihali4]

Создайте новый проект, вставьте в него только то, что вы привели в п.4 и убедитесь, что все работает нормально. Я специально проверил.
Поэтому искать вам нужно в другом месте...

[artemavd]

Понял У меня просто уже были до этого созданы edit-ы с этими именами

[Ntlegend]

для удобства работы с эдитами советую обьявить их как динамический массив вместо

  e : TEdit;

обьявить как

  e : array of TEdit;

и потом при создании..

SetLength(e, Length(e)+1);
e[High(e)] := TEdit.Create(self);
**
(*и дальше по кду как у вас там етсь.. вместо е при создании
  писать e[High(e)].. в таком случае обращаться к каждому эдиту
  так:  e[номер эдита]...
*)