Функция чтения из динамически созданного Edit

[Grandistok]

Доброго времени суток комрады

Задача: Написать функцию кортой будет передаваться имя динамически созданного элемента Edit (форма на котором расположен Edit то же созданна динамически) которарая будет возвращать значение введенное пользователем в этот Edit.

Решение:
Function TForm1.ReadEdit(NameEdit:string):st ring;
begin
Result:=NameEdit.Text;
end;

Delphi соответственно ругается:
[DCC Error] Unit1.pas(476): E2018 Record, object or class type required

Вот собственно и вопрос как мне обратиться к этому Edit правильно?


P.S. В инете накопал как можно положить в эдит надпись путем создания обработчика события элемента типа FormCreate или OnClick, но это не совсем то что я хочу сделать т.к. пользователь не должен кликать по элементу а должен нажать кнопку обработчик кторой считает данные из всех Edit на форме.

[Пепел Феникса]

FindControl
или
Controls[i]
(естественно как св-ва TForm)
поищите, на форуме есть примеры.

только может всетаки лучше запомнить где то сам Эдит?
а то ресурсы тратить...

[Volt]

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
for i:=0 to Form1.ComponentCount-1 do
if Form1.Components[i].ClassName='TEdit' then
begin
Memo1.Lines.Add('Name='+(Form1.Components[i] as TEdit).Name+' Text='+(Form1.Components[i] as TEdit).Text);
end;
end;

[Grandistok]

Все вынужден сдаться и снова простить помощи

Сообщение от Пепел Феникса

FindControl
или
Controls[i]
(естественно как св-ва TForm)
поищите, на форуме есть примеры.

только может всетаки лучше запомнить где то сам Эдит?
а то ресурсы тратить...

Про FindControl и Controls[i] не очень понял если чесно дадите ссылочку где подробно написано?

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
for i:=0 to Form1.ComponentCount-1 do
if Form1.Components[i].ClassName='TEdit' then
begin
Memo1.Lines.Add('Name='+(Form1.Components[i] as TEdit).Name+' Text='+(Form1.Components[i] as TEdit).Text);
end;
end;

Изучив своял такое:

Function TForm1.ReadEdit(NameEdit:string):string;
var i:integer;
begin
 for i:=0 to ActiveMDIChild.ComponentCount-1 do
 begin
    if ActiveMDIChild.Components[i].Name=NameEdit then
        Result:=(ActiveMDIChild.Components[i] as TEdit).Text;
    MessageDlg('Цикл работает',mtConfirmation,[mbOK],0);
 end;
 MessageDlg('Выход из процедуры',mtConfirmation,[mbOK],0);
end;

Вот только функция не ничего не возвращает сообщения "Цикл работает" вообще не появляется а вот "Выход из процедуры" есть.

ЗЫ в функцию передаю значение Edit1 и заранее знаю что элемент с таким именем на форме есть.

У нас принято оформлять код специальным тэгом - кнопочка "#".
Модератор

[mihali4]

Кто такой "ActiveMDIChild"?

[Grandistok]

Так ладно давайте начнем сначала

Вот собственно все что я смог написать на данный момент

Смысл програмки простой (она кстати MDI я забыл сказать): есть строка которая содержит описание формы (эелементы, их положение итд). По этому описанию програмулина создает дочернюю форму, после создания пользователь вбивает нужные ему значения и жмет кнопку, программа считывает что вбил пользователь и создает Word докумен вставляя в нужные места значения введенные пользователем (правда для Word я еще толком ничего не реализовал)

так собственно проблема в том что создать форму я смог а вот считать данные из динамически созданых на ней Edit-ов не могу

Я так уже понимаю что мне нужно выяснить Handel Edit-а и обратится к нему? Но не пойму как это сделать (функция чтения из Edit в самом низу)

[Grandistok]

Докопался до следующего:

Что бы обратиться к компоненту программно создаваемого дочернего окна MDI приложения нужно сотварить что то типа:

(MdiChildren as TMyForm).<Component>, (ActiveMdiChild as TMyForm).<Component> и т.д. Суть в том, чтобы привести окно к тому типу, который содержит нужный компонент.

Вот только привести к типу не могу (хотя уже пробовал методом научного тыка просто подставлять все типы которые использую но результат нулевой).

Вот пример моей функции:

Function TForm1.ReadEdit(NameEdit:string):string;
begin
TEdit((ActiveMDIChild as TForm2).FindComponen(NameEdit)).Text:='Текст!!!';
end;

Вот только она ничего не делает
А вот если я кидаю на родительскую форму Edit и пушу:

TEdit(FindComponent('Edit1')).Text:='Текст!!!';

Все получается, значит я просто неправильно обращаюсь к дочерней форме... Подозреваю что проблемма в:

TEdit((ActiveMDIChild as TForm2).FindComponen('NameEdit')).Text:='Текст!!!';

НО сам додуматься до решения не могу Как обратиться к дочерней форме правильно?


P.S. Уважаемые гуру я конечно понимаю что подобные элементарные для вас вопросы уже достали. Но неужели никто не может снизайти с небес и набрать на клавиатуре пару сток для новичка? Заранее благодарен тем кто ответит.

[Пепел Феникса]

повторяю еще раз, может вы всетаки лучше заведете массив для новых эдитов?(пусть как член класса дочерней формы)
ну и наверно соответственно методы создания/удаления/нахождения?
(перебрать массив проще чем все компоненты)

[Grandistok]

Забил на MDI переделал все в стандартный SDI интерфейс все стало на свои места
Подскажите теперь как выяснить есть ли на TPanel какие либо элементы если я незнаю ни тип ни имя эти элементов?

[Grandistok]

Забил на MDI переделал все в стандартный SDI интерфейс все стало на свои места
Подскажите теперь как выяснить есть ли на TPanel какие либо элементы если я незнаю ни тип ни имя эти элементов?