Здраствуй, All!

Подскажите если подобная функция:

function UknownFunc(ClassName:string; Control:TControl):TControl;

а использовалась так:

Control:TControl;
...................
UknownFunc('TEdit', Comp).Text:='Текст в TEdit';

Можно конечно делать TEdit(Control).Text:='Текст в TEdit', но мне это не подходит
С уважением, Олег.

Здравствуйте, OlegProv, Вы писали:

OP>Подскажите если подобная функция:

OP>function UknownFunc(ClassName:string; Control:TControl):TControl;

OP>а использовалась так:

OP>Control:TControl;
OP>...................
OP> UknownFunc('TEdit', Comp).Text:='Текст в TEdit';

OP>Можно конечно делать TEdit(Control).Text:='Текст в TEdit', но мне это не подходит
OP>С уважением, Олег.

Тогда функция должна выглядеть немного не так:

UnknownFunc(Comp,'Text', 'Текст в TEdit');

почитай про RTTI

Здравствуйте, OlegProv, Вы писали:

OP>Здраствуй, All!

OP>Подскажите если подобная функция:

OP>function UknownFunc(ClassName:string; Control:TControl):TControl;

OP>а использовалась так:

OP>Control:TControl;
OP>...................
OP> UknownFunc('TEdit', Comp).Text:='Текст в TEdit';

OP>Можно конечно делать TEdit(Control).Text:='Текст в TEdit', но мне это не подходит
OP>С уважением, Олег.

Открой TypInfo.pas и рассмотрись.
В твоем случае подойдет

SetStrProp (Comp, 'Text', 'Текст в TEdit')