Как обратиться к объекту который был только что создан

[Arassir]

Как обратиться к объекту который был только что создан.

Я создал программно компонент edit.
В последствие я хочу чтобы в зависимости от числа в этом поле совершалось определенное действие при нажатии на кнопку.

Если пишу в обработчике события "нажатие на кнопку" название созданного поля edit1 пишется ошибка.

[mihali4]

Если пишу в обработчике события "нажатие на кнопку" название созданного поля edit1 пишется ошибка.

Приведите код обработчика и тот кусок кода, гда вы создавали Edit1.

[Arassir]

{код создания поля ввода на форме}
var edit:Tedit;
begin
edit := tedit.Create(form1);
edit.Parent := form1;
edit.Left:=50;
edit.Width:=50;
edit.Top :=30;
edit.Visible := true;
edit.Name := 'Edit'+inttostr(1);
end;


{Обатиться к созданному объекту я не могу, т.к. для программы пока он не создан он не существует.А пока он не создан он не прописан в качестве переменной в форме}

procedure TForm1.Button1Click(Sender: TObject);
edit1.text:='slovo';


Как быть?

[_SERGEYX_]

Здесь edit.Name := 'Edit'+inttostr(1); работать не будет. Обращаться к такому компоненту нужно не по имени, а по индексу.
Принцип такой:

var e : array [1..10] of TEdit;
begin
 e[1] := tedit.Create(form1);
 e[1].Parent := form1;
 e[1].Left:=50;
 e[1].Width:=50;
 e[1].Top :=30;
 e[1].Visible := true;
 e[1].Text:= 'ку-ку';
end;

Еще можно записать, например, в Tag какое-то значение и по нему находить нужный компонент.

При выходе не забудь очистить память.
e[1].Free;

[mihali4]

{Обатиться к созданному объекту я не могу, т.к. для программы пока он не создан он не существует.А пока он не создан он не прописан в качестве переменной в форме}
procedure TForm1.Button1Click(Sender: TObject);
edit1.text:='slovo';

Как быть?

А, вот в чем дело... Ну, это просто:

procedure TForm1.Button1Click(Sender: TObject);
var mycomp: TComponent;
begin
mycomp:=FindComponent('Edit1');
if mycomp<>nil then
(mycomp as TEdit).Text:='slovo';
end;

[Arassir]

Mihali4
Большое спасибо, то что надо.