findcomponent и tedit

[zotox]

 i:=1;
 showmessage(TEdit(FindComponent('my_edit'+inttostr(i))).Text);

Хочу чтобы в маленьком окошке (showmessage) высвечивался текст который в моем компоненте (tedit)(компонент создан через код)
Что не так я делаю? (высв. окошко без текста) Вариант типа showmessage(my_edit1.text); не предлогать

[Kotofff]

А можно код создания Edit`ов посмотреть ...
Судя по всему my_edit плюс номер - не верное имя контролов ...

[Stilet]

Что не так я делаю?

Во-первых: А ты уверен что в этом Эдите есть текст?
Во-вторых: Что ты будешь делать если такого Эдита нет? Вылезет ошибка, поэтому сначала получай результат работы FindComponent в некую переменную, проверяй ее на nil и если она не nil то уже работай с этой переменной.

[zotox]

Сообщение от Kotofff

А можно код создания Edit`ов посмотреть ...
Судя по всему my_edit плюс номер - не верное имя контролов ...

 my_edit1:=TEdit.Create(TabSheet1);
 my_edit1.Parent:=TabSheet1;
 my_edit1.Top:=28;
 my_edit1.Left:=5;
 my_edit1.Width:=137;
 my_edit1.Height:=21;
 my_edit1.Visible:=true;
 my_edit1.Text:='hello world';
 //Все прекрасно создается и отображается

Stilet, да я уверен что текст в edit'е есть

Проверил сейчас что возр. findcomponent:

if FindComponent('my_edit1')<>nil then showmessage('ok');

my_edit1 - не улавливает, почему не улавливает - мне не понятно

[russian-stalker]

my_edit1.name:='my_edit1';

ибо findcomponent ищет по значению свойства name.

[zotox]

ибо findcomponent ищет по значению свойства name.

Все так же (т.е. findcomponent возр. nil)

[Serge_Bliznykov]

zotox
либо родителя (parent) делайте форму,
либо ищите компонент ТАМ, где Вы его создали (в TbaSheet1)!

var
  Form1: TForm1;
  my_edit1 : TEdit;

implementation

{$R *.DFM}

procedure TForm1.btCreateMyEditClick(Sender: TObject);
begin
 if Assigned(my_edit1) then Exit;
 my_edit1:=TEdit.Create(TabSheet1);
 my_edit1.Parent:=TabSheet1;
 my_edit1.Top:=28;
 my_edit1.Left:=5;
 my_edit1.Width:=137;
 my_edit1.Height:=21;
 my_edit1.Visible:=true;
 my_edit1.Text:='hello world';
 my_edit1.name:='MY_EDIT1';
end;

procedure TForm1.btFindMyEditClick(Sender: TObject);
var s : string;
begin
 if Assigned(TabSheet1.FindComponent('MY_EDIT1')) then
 begin
   s := (TabSheet1.FindComponent('MY_EDIT1') as TEdit).Text;
   Application.MessageBox(PChar('Found! Text in = "'+s+'"'),
                          'Сообщение', MB_OK)
 end
 else
   Application.MessageBox('Компонент не найден!', 'Ошибка', MB_ICONERROR or MB_OK);
end;

[zotox]

Serge_Bliznykov, спасибо большое! программа заработала как надо!

[one1991]

Люди ошибку пишет не могу найти компонент, нужно сделать чтобы когда мой объект доходит до динамического определенного объекта - этот определенный объект изчезал или делал какое либо другое действие -(

var
i:integer;
begin
i:=strawtimer.Tag;
  img:=TRxGIFAnimator(FindComponent('straw'+inttostr(i)));
  if img.Width=medved.Left then
    begin
      showmessage('клубничка');
    end;
end;

[Serge_Bliznykov]

1) прежде чем использовать найденный через FindComponent объект надо бы убедиться, что он нашёлся!

2) так может этого объекта банально нет или Parent у него другой (смотри пост #7) ?!

3) выкладывайте целиком исходники проекта. Посмотрим, что там не так...