[brotherirk]

как передать свойство объекта в свою процедуру для дальнейшего изменения?

Код:

...

 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;

Админ: Пользуемся тегами при оформлении кода!

[lmikle]

вот так не подойдет:

Код:

uses TypInfo;

procedure TForm1.test(prop : String);
begin
  SetPropValue(Edit1,prop,'aaaaa');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  test('Text');
end;

[brotherirk]

а как ее использовать если передавать MaskEdit1.text?
нашел вот: https://translated.turbopages.org/pr...erty-in-delphi
но как в функцию передать параметром MaskEdit1.text?

[lmikle]

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

а как ее использовать если передавать MaskEdit1.text?
нашел вот: https://translated.turbopages.org/pr...erty-in-delphi
но как в функцию передать параметром MaskEdit1.text?

Ну, там об использовании RTTI и говорится. Т.е. именно то, что в моем примере используется. Для MaskEdit1.text надо делать так:

Код:

uses TypInfo;

procedure TForm1.test(obj : TObject; prop : String; value : String);
begin
  SetPropValue(obj,prop,value);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  test(Edit1,'text','aaa');
  test(Label1,'caption','bbb');
end;

собственно, обертка test здесь и не сильно нужна в таком варианте. Просто если нужна более сложная логика, но которую можно написать общим кодом под разные компоненты, то тогда такая обертка может быть полезной (к SetPropValue есть парная функция GetPropValue для чтения значения св-ва по имени).

Если надо изменить свойство объекта, почему не передать в параметрах сам этот объект? Этому что-то мешает?

Ну, например, может мешать то, что в разных компонентах некоторые св-ва называются немного по разному (см пример с TEdit и TLabel). Тут все зависит от конкретной задачи.

[brotherirk]

Да спасибо за уточнения, так и буду делать!

[brotherirk]

но если есть идеи для конкретного случая:
но как в функцию передать параметром MaskEdit1.text и там изменить text?
то буду благодарен...

[xchgeaxeax]

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

как передать свойство объекта в свою процедуру для дальнейшего изменения?

Если надо изменить свойство объекта, почему не передать в параметрах сам этот объект? Этому что-то мешает?

Код:

procedure ChangeText(Edit: TMaskEdit);
begin
  Edit.Text := 'aaaaaa';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ChangeText(MaskEdit1);
end;