Передача названия объекта в процедуре

[dimkoss]

Допустим процедура / функция меняет значение Edit1.text. Edit разный, и хочется его передавать, как параметр процедуры. Как такое реализовать?

[Alex11223]

Ну так и делать, передавать параметром функции TEdit.

И давать всему нормальные имена, а не Edit1, Edit2, ..., Edit99.

[kropotkina-alice]

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

Допустим процедура / функция меняет значение Edit1.text. Edit разный, и хочется его передавать, как параметр процедуры. Как такое реализовать?

А оно уже реализовано...
Вы разве не заметили, что любая стандартная процедура имеет хотя бы один обязательный параметр?
Вот вам пример:

procedure Tfmain.BitBtn1Click(Sender: TObject);

Вот этот Sender класса TObject вам и нужен.
А в теле процедуры вы напишете:

if (Sender as TEdit).Name='Edit1' then
//сделать то-то...

А вызывать будете именно так:

BitBtn1Click(Edit1);
//или
BitBtn1Click(Edit2);

[Alex11223]

Где автор говорил, что он подписывается на события Edit'ов?

И это не "стандартная процедура", а обработчик события.

И BitBtn1Click(Edit1) это бред, Sender не для этого предназначен и вообще не надо вызывать обработчики событий самому.

[kropotkina-alice]

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

Где автор говорил, что он подписывается на события Edit'ов?

А где вы увидели события Edit'ов?

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

И это не "стандартная процедура", а обработчик события.

Не подскажете, каким переводчиком надо воспользоваться, чтобы перевести слово "procedure" как "обработчик события"?
Кстати, а вот это тоже "обработчик события"?

procedure Tfmain.MyProc;
var a,b,c: real;
begin
a:=5.2;
b:=3.7;
c:=b/a;
if c<1 then
ShowMessage('Вы женоненавистник?');
end;

Передавайте привет вашему учителю английского. У вас наверное, одни пятерки были?

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

И BitBtn1Click(Edit1) это бред, Sender не для этого предназначен и вообще не надо вызывать обработчики событий самому.

Это вы такое правило установили?
Кстати, "Sender" в переводе означает "передатчик", то есть тот, кто передает команду на выполнение вызываемой процедуры...

[Alex11223]

Причем тут procedure, я про event handler. Дельфи ж создает такие процедуры с Sender именно для обработки событий, а не просто так.

И Sender обычно является объектом сгенерировавшим это событие, а не чем попало переданным.

[kropotkina-alice]

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

Дельфи ж создает такие процедуры с Sender именно для обработки событий... И Sender обычно является объектом сгенерировавшим это событие, а не чем попало переданным.

Sender в данном случае является объектом, вызывающим это событие...
Интересно, а почему вы считаете, что этого "вызывателя" нельзя подменить? Я, например, этот прием использую довольно часто...
Кстати, и вам это никто не запрещает...
И я впервые слышу, что это - "бред"...

[Alex11223]

Sender в данном случае является объектом, вызывающим это событие...

И где логика? У вас Edit вызывает нажатие кнопки?

Тем более что коду внутри этой процедуры скорее всего вообще не нужна никакая кнопка и никакого отношения к обработке ее нажатия он не имеет.

Почему просто не сделать нормальную процедуру

procedure DoSomethingWithEdit(edt: TEdit);

и не вызвать ее? Заодно не придется кастовать из TObject.

[kropotkina-alice]

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

И где логика? У вас Edit вызывает нажатие кнопки?

У вас какое-то странное восприятие...
Вообще-то, если вы внимательно посмотрите, событие вызывается нажатием на BitBtn.
И обработчик для этого события будет вызван в любом случае, кого бы мы сэндером ни назначили.
И кто мне запрещает указать сэндером не BitBtn (что происходит по умолчанию), а любой другой объект???
По вашей логике вы предлагаете плодить процедуры и вызывать из обработчика для BitBtn какую-то дополнительную DoSomethingWithEdit(edt: TEdit)...
А если мне понадобится по нажатию на BitBtn сотворить нечто с TPanel, к примеру?
Добавлять еще и DoSomethingWithPanel(pnl: TPanel)???
А если действия и в том, и в другом случае идентичны? Плодить одинаковые куски кода?
Извините, но вы сами знаете устоявшееся название для такого... м-м-м... "кода"...
З.Ы.
От дальнейшего бесплодного флуда уклоняюсь, ибо взаимопонимание маловероятно...

[Alex11223]

Ну DoSomething это просто пример как Foo и Bar, на самом деле она должна иметь нормальное имя соответствующее задаче. Например, DrawBorder, HighlightErrorEdit, Clear, Fill(edit, data) и т.п.

Никто не запрещает, просто обычно так не делают, и не пихают весь подряд код в обработчик события кнопки, а разделяют его на процедуры (выполняющие какую-то четкую задачу). Это как раз и поможет не "плодить одинаковые куски кода".