18.03.2024, 10:41
|
Модератор
|
|
Регистрация: 17.04.2008
Сообщения: 8,035
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
|
|
вот так не подойдет:
Код:
uses TypInfo;
procedure TForm1.test(prop : String);
begin
SetPropValue(Edit1,prop,'aaaaa');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
test('Text');
end;
|