Приведение типов переменных

← →
fvn © (2007-02-26 09:59) [0]

Как привести переменную s1:string к s2:TForm1 ?

← →
Ega23 © (2007-02-26 10:16) [1]

:))))))))))))))))))))))
орех...

← →
Barloggg (2007-02-26 10:32) [2]

ну... теоретически это конечно возможно.
но, да, это орех.

← →
stone © (2007-02-26 10:34) [3]

Попробую включить телепатор :)
var
с: TComponent;
...
c := FindComponent(s1);
if (c <> nil) and (c is TForm) then
s2 := c;

← →
Elen © (2007-02-26 10:45) [4]

Может имелось ввиду примерно такое? :
.... var s:string; form2,Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormShow(Sender: TObject); begin s:=string(form1); form2:=Tform1(s); form2.Caption:="ddd"; end;

Только это весьма неверный ход, если конечно автор имел ввиду нечто подобное.

← →
evvcom © (2007-02-26 10:48) [5]

> [4] Elen © (26.02.07 10:45)

А смысл сего?
Мой телепатор нателепатил аналогично
> [3] stone © (26.02.07 10:34)

← →
RASkov (2007-02-26 10:51) [6]

StringToTForm1();)

← →
Elen © (2007-02-26 10:54) [7]

> А смысл сего?

похакерствовать :) или изучить разнообразие ошибок на практике.

← →
evvcom © (2007-02-26 10:58) [8]

> [7] Elen © (26.02.07 10:54)

Похакерствовать в начинающих? Да и хакерского ничего не вижу в этом, только бессмысленное приведение типов.

> или изучить разнообразие ошибок на практике

Их и так будет достаточно, не надо для этого их изобретать. :)

← →
RASkov (2007-02-26 11:00) [9]

function StringToTForm(const Sf: String): TForm;
begin
Result:=TForm(Application.FindComponent(Sf));
end;

var F: TForm;
begin
F:=StringToTForm("Form2");
if F<>nil then F.Show;
end;
:о)

← →
evvcom © (2007-02-26 11:20) [10]

> [9] RASkov (26.02.07 11:00)
> Application.FindComponent(Sf)

Это ты где такое нашел? :-)
Хорош глупости советовать.

← →
RASkov (2007-02-26 11:32) [11]

> [10] evvcom © (26.02.07 11:20)

Да ладно сёравно орех, а что что я нарисовал, даже работает ;)

RASkov (26.02.07 11:32) [11]
Это не приведение ;)

Автору
Ты пытаешься из застежки-"молнию" для куртки сделать процессор для компа. Кодичество ножек вроде совпадает, да и желтенькие они.

← →
RASkov (2007-02-26 12:16) [13]

> Это не приведение ;)

Да, но в контексте вопроса автора, такого быть не может вообще... вобщем про молнию в тему;)

Спасибо за отклик. поясню суть вопроса :
1. Имеем головной модуль Меню, который вызывает скажем 100 форм документов
2. Есть генератор меню, который собирает формы (документы) в отдельные приложения (сочетания документов)
3. В зависимости от полномочий пользователя эти сочетания могут быть разными
4. Меню генерится при входе, имена форм (документов) имеем в описании приложения в виде записей string
5. Для того, что бы открыть любой из документов приложения, необходимо перевести его наименование в TForm иначе придется писать длинный список сравнений.

> 5. Для того, что бы открыть любой из документов приложения,
> необходимо перевести его наименование в TForm иначе придется
> писать длинный список сравнений.

У элемента меню есть свойство Tag, в которое вполне можно записать ссылку на класс формы

GetClass + F1

Приведение типов переменных Найти похожие ветки