как передать свойство объекта в свою процедуру для дальнейшего изменения?
Код:
...
obj.proc(var AObject : Tobject);
begin
if AObject is TMaskEdit then (Aobject as TMaskEdit).text:= '1';
end;
...
obj.proc(MaskEdit1.text);
или лучше так:
Код:
obj.proc(var txt: TMaskedText);
begin
txt:= '1';
end;
Админ: Пользуемся тегами при оформлении кода!