Динамически обратиться к свойствам

[reaque]

Хочу создать процедуру, которая будет присваивать одному из свойств объекта Edit определенное текстовое значение.
Например, для объекта Edit1 через выполнение процедуры хочу в зависимости от условия передавать текстовое значение либо в свойство Text, либо Hint.

proc(String property)
{
Edit1->PROPERTY = "Какой-то текст";
}

*property - текстовая переменная, которая содержит наименование свойства объекта.

вызов процедуры proc("Text"); - результат в Edit1->Text должен встать "Какой-то текст".
вызов процедуры proc("Hint"); - результат в Edit1->Hint должен встать "Какой-то текст".

Как это реализовать?

[Valick]

Честно говоря непонятно чего вы хотите добиться, но возможно вы хотите это https://www.techiedelight.com/ru/dif...c-binding-cpp/

[reaque]

Мне нужно загружать данные из БД в зависимости от логики приложения то в свойство Hint, то в свойство Text. Мне приходится сейчас держать 2 процедуры практически одинаковых по тексту, хотелось бы заменить на одну универсальную, чтобы свойство объекта передавалось через переменную.

void __fastcall TForm1::db_hint(String forma, int k)
{
	for(int i=2; i<=k; i++)
	{
			TEdit *e = (TEdit*)(FindComponent(forma + "_Edit" + lpad(IntToStr(i), 2)));
			e->Hint = OraQuery1->Fields->FieldByNumber(i+1)->AsString;
	}
}

void __fastcall TForm1::db_text(String forma, int k)
{
	for(int i=2; i<=k; i++)
	{
			TEdit *e = (TEdit*)(FindComponent(forma + "_Edit" + lpad(IntToStr(i), 2)));
			e->Text= OraQuery1->Fields->FieldByNumber(i+1)->AsString;
	}
}

Фактически тело одной только процедуры на страницу, хотелось бы все-таки оптимизировать код.
Хотелось бы, чтобы получилось примерно так:

void __fastcall TForm1::db(String forma, int k, String PROPERTY)
{
	for(int i=2; i<=k; i++)
	{
			TEdit *e = (TEdit*)(FindComponent(forma + "_Edit" + lpad(IntToStr(i), 2)));
			e->PROPERTY = OraQuery1->Fields->FieldByNumber(i+1)->AsString;
	}
}

[jillitil]

... получилось примерно так:

void __fastcall TForm1::db(String forma, int k, BOOL ForHint)
{
	for(int i=2; i<=k; i++)
	{
			TEdit *e = (TEdit*)(FindComponent(forma + "_Edit" + lpad(IntToStr(i), 2)));
			(ForHint?(e->Hint):(e->Text)) =  OraQuery1->Fields->FieldByNumber(i+1)->AsString;
	}
}