Передача элемента формы

[varied]

Всем доброй ночи!

Заголовок получился не очень, но не хотелось делать его слишком длинным.
Я хотел узнать, можно ли передавать в процедуру "адрес элемента формы, куда надо возвращать результат? К примеру, есть процедура a(b:string;c:integer;d:???);
где d переменная, куда (в какой элемент формы и в какую форму) будет посылаться работа процедуры.
Надеюсь, объяснил понятно, я не программист, это так, для себя.

Заранее спасибо!

[Simply-Art]

Я думаю Form1.memo1.text можно за место d использовать надеюсь ты это имел ввиду, если не так извени.

[varied]

Спасибо за отклик!
Наверное, я плохо объяснил или не так понял.
К примеру, при нажатии кнопки запускается процедура a('stroka',25,form1.memo.text);
Как внутри процедуры я узнаю, что записывать надо в form1.memo.text?
И ещё раз спасибо!

Только что пришло в голову, может просто обозначить var d:string, тогда обращаясь к d, будут менятся значения элементов формы?
Просто сейчас не могу проверить, нахожусь не дома.

[Трофимов Александр]

Может проще в глобальных переменных объявить переменную типа string и через неё, в случае, если переменная не является пустой строкой, выводить именно в поле memo.

[varied]

Я, видимо, опять всё не так сказал, в процедуру может передоваться "адрес" любого элемента, к примеру, button1.caption, edti1.text radiobutton1.caption ну и так далее.
И опять спасибо!

[Сильванович Михаил]

Может так: d: string;

//пусть d='Button1', тогда можно так:
(FindComponent(d) as TButton).Caption:='Hello World!!!!'

[-=DeS=-]

Ты про это???

procedure TForm1.Button1Click(Sender: TObject);
begin
button1.Caption:=edit1.Text;
end;

[AVer]

Я думаю имелось ввиду что-то типа этого:

procedure a(b:string;c:integer;d:TEdit);
begin
d.Text:=...;
end;

[varied]

Сообщение от Сильванович Михаил

Может так: d: string;

//пусть d='Button1', тогда можно так:
(FindComponent(d) as TButton).Caption:='Hello World!!!!'

Спасибо!
Нашёл в справке про FindComponent, получается, что надо писать
TButton(FindComponent(d)).Caption:= 'Hello World!!!!';
У меня 6 делфи, может в других и так как вы написали, но у меня не пошёл ниодин из вариантов (Undeclared identifier), там надо подключать какой-то юнит?

Сообщение от -=DeS=-

Ты про это???

Почти, но в том-то и дело, что может быть много вариантов:
button1.Caption:=edit1.Text;
button3.Caption:=edit6.Text;
button2.Caption:=edit8.Text;
button8.Caption:=edit2.Text;

а процедуру хотелось бы иметь одну.
Вообще меня интересовало, как передать процедуре компонент, куда будет передаваться работа (к примеру процедура проходит с edit1 по edit10 и проверяет, что в них, ну и меняет значения полей text, не суть зачем, это просто пример, но процедуре можно передать только один компонент, то есть в вызвавшей части будет цикл), но и знать из какого компонента брать текст было бы неплохо, хотя, по сути это одно и тоже.

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

Я думаю имелось ввиду что-то типа этого:

procedure a(b:string;c:integer;d:TMemo);
begin
d.Text:=...;
end;

Да, это и имелось ввиду. Краткость явно не моя сестра...

[Umen]

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

Я, видимо, опять всё не так сказал, в процедуру может передоваться "адрес" любого элемента, к примеру, button1.caption, edti1.text radiobutton1.caption ну и так далее.
И опять спасибо!

в этом случае лучше объявить процедуру как

 
procedure a(b:string;c:integer;Sender:TObject);
begin
if (Sender is TButton) then
TButton(Sender).caption := ...
....
....
if (Sender is TEdit) then
TEdit(Sender).text := ...
end;