怎么讲一个record清零？

Question

有没有一次操作的方法，对每个成员依次操作太麻烦了

Answer 1

type
   TTestRecord = record
     ttStr: string;
     ttInt: integer;
   end;var
  _tr,tr: TTestRecord;procedure TForm1.FormCreate(Sender: TObject);
begin
_tr.ttStr:= '123';
_tr.ttInt:= 123;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
   CopyMemory(addr(_tr),addr(tr),sizeof(_tr));
end;procedure TForm1.Button2Click(Sender: TObject);
var
  i: integer;
begin
  i:= _tr.ttInt;
  showmessage(inttostr(i));
  i:= tr.ttInt;
  showmessage(inttostr(i));
end;我不知道它为什么没了~~~~~