• Registered: 2015-04-10
  • Posts: 74

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);
  • Registered: 2014-02-14
  • Posts: 10,294

Re: Переменная в процедуре

procedure OnNumber (tEdit: TdbEdit;);
var
   amt : string;
begin
   amt := tEdit.Text;
   if (amt<>'0') then tEdit.Text := amt+'8'
   else
   tEdit.Text := '8';
end;

вызов процедуры

OnNumber (Form1.Edit1);
Dmitry.