能不能把指针变量保存起来？

Question

我想保存Pointer变量和一些如Form1,这样的东西，到文件，不知道怎么保存。

Answer 1

//当然这个地方你稍微改一下也就可以转换Pointer类型的东西了。
Function FormatObjectVar(Obj : TObject):String;
var
  P : pointer;
begin
  P := Pointer(OBJ);
  Result := Format('%p', [p]);
end;然后直接保存字符串.我想你肯定还需要引用吧，：）
这个地方也是一个道理，需要稍微改一下就能转换成Pointer了，：）
Function GetObj(ObjAddr : String):Tobject;//根据地址转换成那个对象
var
  Tmp : TObject;
  P : Dword;
  S : String;
begin
  Result := Nil;
  S := Trim(ObjAddr);
  try
    P := strtoint('$'+S);
    TMP := TObject(P);
    S := Tmp.ClassName;
    Result := Tmp;
  except
  end;
end;