[Nekromant Set'а]

Вот собственно сабж))

[Winny]

Как перевести имя класса в строку:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
label1.Caption:=button1.ClassName;
end;

end.

[Winny]

А имя класса компонента программно невозможно изменить.

[Nekromant Set'а]

Спасиб =) Я сразу как-то недогадался...

[Winny]

Всегда пожалуйста

[Nekromant Set'а]

Есть следующая задача:
Есть классы Tb1, Tb2 и Tb3...
Есть строка, в которой храниться имя класса объекта, который надо создать... Допустим значение строки:

s := 'Tb1';

Как же создать объект с именем класса Tb1 ???

[Winny]

Щас попробую написать код