为什么这几行代码不对。

Question

type
  TpmyDate=^TmyDate;
  TmyDate=record
     old:TDateTime;
     new:TDateTime;
     :String;
  end;procedure TForm1.Button8Click(Sender: TObject);
var
  myreg:TRegistry;
  pmyDate:TpmyDate;
begin
  new(pmyDate);
  pmyDate^.old:=Date();
  pmyDate^.new:=Date();
  pmyDate^.:='test';
  myreg:=TRegistry.Create;
  myreg.RootKey:=HKEY_CURRENT_CONFIG;
  myreg.OpenKey('\TEST',True);
  myreg.WriteBinaryData('Date',pmyDate,Sizeof(TmyDate));//能够写进注册表
  myreg.Free;end;
procedure TForm1.Button9Click(Sender: TObject);
var
  myreg:TRegistry;
  pmyDateread:TpmyDate;
  haveread:integer;
begin
  new(pmyDateread);
  myreg:=TRegistry.Create;
  myreg.RootKey:=HKEY_CURRENT_CONFIG;
  myreg.OpenKey('\TEST',True);
  if Assigned(pmyDateread) then
    haveread:=myreg.ReadBinaryData('Date',pmyDateread,Sizeof(TmyDate));//但是不能读出来
  showmessage(pmyDateread^.);
  myreg.Free;end;
能够写入注册表，但是不能读出来不知道为什么。

Answer 1

已经帮你解决了，可以给分了吧，呵呵