[zgs]

Как использовать переданный в процедуру параметр типа TObject в конструкции with? Передается TForm

Код:

procedure A(Sender: TObject);
begin
   with (Sender As TForm).Name do
      Edit1.Text:='1';
end;

procedure B();
begin
   A(Form1);
end;

MAD: CODE

[icWasya]

А зачем здесь Name?

Код:

with (Sender As TForm).Name do

[zgs]

Решено.
Нужно передавать конкретный объект.

Код:

procedure A(Sender: TObject);
begin
with Sender As TEdit do
Text:='1';
end;

procedure B();
begin
A(Form1.Edit1);
end;

MAD: CODE

[Alegun]

Лучше параметром процедуры конкректный класс объекта передавать, уберутся лишние проверки, здесь универсальность только вредит