如何把一个字符串强制转换成TForm(100分)

  • 主题发起人 主题发起人 wzquan
  • 开始时间 开始时间
Tform 和字符串无法互换
 
直接不可以，但通过流，TReader，TWriter等对象，是可以将TForm变成文本，并且可以读取，Delphi 本身的窗口文件 *.dfm 有文本格式和二进制格式， 就是这样读写的
 
谁说不可以强制转换？
var
S:string;
F: TForm;
begin
F:=TForm(Pointer(S));
end;
 
我看看 地质灾害 的方法
 
还是没有达到要求
我的要求是：
能够把一个字符串转换成TForm类型，并且能够根据转换后的结果，创建一个新的Form
 
你自己说要强制转换。SB一个。
任何字符串都能转成Form。你发明的算法？
 
to 地质灾害:
不要生气,他的意识是写入文件后再读出,然后在转换!
 
地质灾害是婊子养的吧！
 
经济不景气,大家火气也大.唉...
 
一个是对象一个是 内存文字怎么可能，根据文本强制成哪个样子还可以，不然 hwnd 消息循环 怎么处理。
 
一个是对象一个是 内存文字怎么可能????
可能啊!
就是地址灾害的方法,没有错!
 
小李子你又在骂主人啊。想吃骨头就直说嘛。你说想吃我会给你买的 你说不吃我不会逼你吃。不可能那个你说想吃我不给你吃 你不想吃我却非要你吃 大家讲道理嘛。
 
我准备开贴让版主封你的号了！
我准备出3000分，让大家联合抵制你这个SB！
 
咋又是两位在吵。
lz虽然表达不清楚但好歹大伙明白了是流化的需求。
 
来自：李翔鹏, 时间：2008-11-11 17:10:58, ID：3929464
我准备开贴让版主封你的号了！
我准备出3000分，让大家联合抵制你这个SB！

小李子你就来吧。你出3000W也白搭。SB贱狗一条
 
uses yourform;
const
ClassArray: TClassArray = (Tyourform ) ;

var
TempClass: TComponentClass;
TempComp: TComponent;
begin
TempClass := TComponentClass (GetClass ('Tyourform'));
TempComp := TempClass.Create (Application);
if TempClass.InheritsFrom (TForm) then
begin
CurrentForm := TForm(TempComp) ;
CurrentForm.Tag := tempItem.Tag ;
CurrentForm.Parent := self ;
CurrentForm.BorderStyle := bsNone ;
CurrentForm.Align := alClient ;
self.Caption := Format('%s [%s]',[MAINFORMCAPTION,tempItem.Caption]);
CurrentForm.Show ;
end
else
TempComp.Free ;

end;
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
H
怎么把字符串转换成数字(50分)
回复
12
查看
161
qdpingping
Q
X
字符串操作问题，如何把"12/31/2002"转换成"20021231"??(100分)
回复
5
查看
87
xzfu
X
P
浮点数如何转换成字符窜(50分)
回复
10
查看
134
pyk1
P
L
怎样实现把字符串指针转换为字符串(50分)
回复
5
查看
159
dadabox
D
后退
顶部