Topic: Переменная в процедуре
есть на форме
Edit1,Edit2,Edit3
procedure OnNumber (tEdit: TObject;);
var
amt : string;
begin
amt := tEdit.Text;
if (amt<>'0') then tEdit.Text := amt+'8'
else
tEdit.Text := '8';
end;
Как передать в процедуру имя объекта?
Что бы работало так:
@OnNumber (Form1.Edit1);