delphi动态view as text ，view as form

Question

如何把一个窗体及窗体里的部件动态view as text，再动态的把它view as form回来；有哪位大虾玩过啊？在线等待SOS......

Answer 1

把dfm文件打包发布，到时候读这个文件

Answer 2

你新建一个form然后到这个form保存位置找到对应的dfm文件，用记事本打开看看里面是什么就是你view as text的内容，把这个文件打包发布，运行的时候view as text使用一个窗体显示dfm的内容隐藏你的form，切换回来就隐藏view as text窗体显示你的form。

Answer 3

不明白楼主要as text干麻用? 想转成动态配置?

Answer 4

其实每个窗体单元都包含了dfm文件({$R *.dfm}),不需要再打包发布，给你写个例子：procedure TForm1.Button1Click(Sender: TObject);
var
  ObjRes: TResourceStream;
  TxtRes: TMemoryStream;
begin
  ObjRes := TResourceStream.Create(HInstance, ClassName, RT_RCDATA);
  TxtRes := TMemoryStream.Create;
  try
    ObjectBinaryToText(ObjRes, TxtRes);
    TxtRes.Position := 0;
    Memo1.Lines.LoadFromStream(TxtRes);
  finally
    ObjRes.Free;
    TxtRes.Free;
  end;
end;