问题贼简单，还有分拿！

Question

Var f: TFielStream;
  p: Pointer;
  s: String;
begin
  f := TFileStream.Create('h:\AA.txt',fmCreate);
  s := '0x123fac';
  GetMem(p,Length(s));
  f.Write(p^,Length(s));
  FreeAndNil(f);
  FreeMem(p);
end;
—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
　　　　　　　

Answer 1

to lxpbuaa:
 i think dotwater means:Var f: TFielStream;
  n: integer;
begin
  f := TFileStream.Create('h:\AA.txt',fmCreate);
  n := StrToInt('ox123fac');
  f.Write(n,Length(n));
  FreeAndNil(f);
end;

Answer 2

Var f: TFielStream;
  n: integer;
begin
  f := TFileStream.Create('h:\AA.txt',fmCreate);
  n := $123fac;//取值
  f.Write(n,Sizeof(integer));
  f.free;
end;